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Abstract 

The  problems  of  writing  large  systems  in  BLISS  that  can  be  run  in  more  than  one 
environment  are  described.  A method  (a  sol  of  methods)  for  attacking  these  problems 
Is  explained,  with  examples  of  its  use  in  a particular  system  (a  compiler).  Aspects  of 
the  BLISS  language  are  discussed  with  regard  to  their  usefulness  or  uselessness  in 
solving  these  problems. 
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In  1974,  the  authors  undertook  to  write  a compiler  for  ALGOL  68.  The  compiler  was  to 
run  on  a PDP-11  and  produce  code  suitable  for  a PDP-11.  The  first  version  was  to 
run  on  C.mmp[l],  a multiprocessor  system  comprising  several  (slightly  modified)  PDP- 
1 1 processors  and  other  hardware,  under  the  HYDRA[2]  operating  system. 

The  compiler  was  written  in  BLISS[3],  for  the  usuai  variety  of  reasons,  not  least  of 
which  was  that  the  C.mmp/HYDRA  system  offers  a complete  symbolic  debugging  system 
. (S1X12[4])  and  other  support  for  BLISS  programs.  However,  there  were  some  initial 

problems  with  building  a system  in  this  environment. 

- The  environment  itself  was  unstable.  The  hardware  and  the  various  levels  of 
the  operating  system  were  full  of  bugs,  and  subject  to  frequent  redesign  as 
well. 

- The  environment  was  completely  unfamiliar  to  the  authors,  who  had  never  used 
it  before. 

- The  compiler  and  linker  for  BLISS  did  nol  run  on  C.mmp/HYDRA,  but  on  a PDP- 
lO/TOPS-10,  with  no  easily  available  link  between  the  two.  Thus  changing  the 
compiler  involved  loading  a linked  version  onto  a DECtape,  carrying  the  tape 
over  to  C.mmp,  mounting  it  there,  and  reading  it—a  time-consuming  process. 
(This,  incidentally,  was  one  of  the  problems  that  the  ALGOL  68  system  was 
intended  to  solve,  since  it  was  lo  run  entirely  under  C.mmp/HYDRA.) 

Hence,  the  authors  decided  to  build  a preliminary  version  of  the  compiler,  which  would 
run  entirely  under  PDP-lO/TOPS-10  (suffering  from  none  of  (he  above  three 
problems),  and  do  most  of  the  early  development  work  on  the  preliminary  version.  To 
minimise  the  problems  of  changing  over  from  PDP-10  versions  to  C.mmp  versions  and 
vico  versa,  the  preliminary  version  was  also  written  in  BLISS.  We  wished  to  be  able  to 
switch  from  using  either  version  to  using  the  other,  simply  by  making  a small  number 
of  error-proof  changes,  and  then  running  the  appropriate  compiler  and  linker  to 
produce  the  version  to  bo  used.  Wo  completely  mot  this  goal,  and  in  fact  switched 
from  using  one  version  to  using  tho  other  several  times.  In  addition,  we  met  it  in  a 
way  that  was  very  easy  to  maintain:  although  we  had  not  used  the  PDP-IO  version 
since  April  1976,  we  used  the  procedure  outlined  above  to  create  a PDP-10  version  in 
February  1977,  with  essentially  no  problems  (e.g.  all  files  compiled  correctly,  in  spite 
of  language  differences  between  BLISS-10  and  BLISS-11). 

I 

Achieving  this  level  of  portability  was  a non-trivial  task.  BLISS  is  not  as  high-level  a 
language  as  ALGOL  nor  as  standardized  as  FORTRAN  (though  achieving  portability  even 
in  FORTRAN  is  not  always  easy  [5]).  The  machine-dependence  of  the  design  of  even 
the  simplest  data  structures  is  not  hidden  from  the  programmer!  moreover,  I/O  and 
other  interactions  with  the  operating  system  are  not  part  of  the  language,  and  must  be 
supplied  by  the  user’s  program  (or  at  least  in  separately-compiled  programs). 
' Standard  packages  are  available  for  handling  routine  problems  for  both  BLISS- 

j lO/TOPS-10  and  BLISS-1 1 /HYDRA,  but  there  are  several  problems  with  using  these: 

o They  are  not  compatible  with  each  other. 

o They  (especially  tho  BLISS- 1 1 /HYDRA  package)  are  inadequate  for  the  needs  of 
large  programs  such  as  compilers. 
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o Thor®  oro  no  pacKogtt  for  any  PDP-11  operating  sysloms  other  than  HYDRA, 
RSX-ll,  and  RT-ll,  and  oven  those  three  are  rjot  compatible  with  each  other. 

This  paper  describes  the  techniques  wo  used  to  achieve  portability,  i.e.  to  minimize 
the  work  necessary  to  change  over  from  one  version  to  the  other.  Chapter  1 
describes  our  system  for  isolating  the  differences  between  the  architecures  of  the 
PDP-10  and  the  PDP-11.  Chapter  2 describes  our  treatment  of  the  differences 
between  the  BLISS-10  and  BLISS-11  languages.  Chapter  3 describes  the  compiler 
interface  with  the  operating  system,  I.e.  the  system  for  isolating  the  differences 
between  TOPS- 10  and  HYDRA.  In  Chapter  4 wo  draw  some  conclusions  about  the 
general  applicability  of  our  techniques,  and  about  the  design  of  system  implementation 
languages  (such  as  BLISS)  with  portability  in  mind.  Portions  of  the  compiler  are 
included  in  the  Appendices  for  illustration. 

1.  Hardware  □ifferencet 

By  using  a high-level  language,  we  wore  able  to  avoid  having  to  deal  with  differences 
between  the  instruction  sets  and  instruction  formats  of  the  PDP-10  and  the  PDP-11 
(the  few  exceptions  are  noted  below).  However,  because  of  the  nature  of  the  BLISS 
language,  we  could  not  avotd  dealing  with  difloronces  between  their  data  formats. 

Our  method  of  isolating  those  diUeronces  was  to  use  a "REOUIRE  file".  BUSS  has  a 
declaration  similar  in  purpose  to  the  PL/I  /(INCLUDE  statement,  by  moans  <m  which  a 
program  may  incorporate  several  files  as  part  of  its  source  text;  this  is  the  REQUIRE 
declaration.  Any  particular  separately-compiled  module  of  the  compiler  begins  with  a 
series  of  REQUIRE  declarations,  each  qf  which  names  a file  containing  some  set  of 
related  definitions.  The  very  first  such  file  is  always  SYSPRM.REQ,  which  contains  the 
definitions  which  hide  the  differences  b.lwcen  the  PDP-lO/BLlSS-10  and  the  POP- 
1 1 /BLISS- 1 1 systems.  The  10  version  of  this  file  is  B10PRM.REQ;  the  11  version  is 
01 1PRM.REQ.  The  first  step  in  the  changeover  from  one  version  to  the  other,  say  from 
the  10  version  to  the  11  version,  is  to  make  sure  that  SYSPRM.REQ  is  a copy  of  the 
proper  version  of  this  fife  (in  this  case  BllPRMiREQ).  This  requires  a single  command 
to  ttie  file  system. 

Not  att  of  the  difteronces  between  language/machine  systems  coutd  be  handled  by  a 
single  file  of  dofinitions,  however.  Those  that  could  not  may  bo  characterized  as 
dlfferonres  between  libraries.  Neither  of  the  two  BLISS  compilers  generates  code  to 
support  unsigned  division,  conversion  of  strings  of  characters  to  fixed-  or  floating- 
point numbers  (or  to  BITS  values,  for  AL(K)L  68),  or  the  SIGNAL/ENABLE  feature  ot 
BLISS- 1 1.  These  must  bo  handled  by  library  subroutines,  and  the  libraries,  even  those 
which  can  be  written  in  BLISS,  are  or  a very  low-level,  machino-dopendent  nature. 
The  two  libraries  are  kept  as  separate  groups  of  source  files,  and  the  differences  in 
the  interfaces  to  them  are  hidden  in  SYSPRM.REO. 

A few  words  of  explanation  of  BLISS  are  in  order  before  we  describe  the  contents  of 
SYSPRM.REQ.  The  data  structures  commonly  available  in  other  high-level  languages,' 
such  as  records,  stacks  (except  for  the  control  slack),  arrays,  list  colls,  and  so  forth, 
are  not  built  into  BLISS.  To  use  such  a structure,  a program  must  define  it,  by  defining 


I 
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- the  layout  In  memory  of  each  instance  of  the  structure.  This  includes  a list  of 
the  parameters  (e.g.  dimensions)  of  any  declaration  of  a variable  with  that 
structure,  and  specification  of  how  those  parameters  are  used  (if  at  all)  in 
determining  the  amount  of  storage  allocated  to  that  variable. 

- the  method  by  which  the  fields  of  the  structure  are  accessed.  A particular 
field  need  not  be  an  entire  machine  wordi  then  it  must  be  specified  w'hich 
group  of  bits  within  the  word  it  must  bo. 

For  instance,  the  standard  definition  of  a one -dimensional  lero-based  array  of  one- 
word  values  (in  BLISS-IO;  It  is  slightly  different  in  8LISS-1 1)  is  as  follows: 

structure  Vector  (IndeHl  ■ [Inden]  (.Vector  + .Index)  <0,  3B>j 

The  first  pair  of  square  brackets  indicates  that  both  declarations  and  accesses  of 
Vector  variables  have  one  parameter.  The  expression  in  the  second  pair  of  square 
brackets  indicates  how  large  an  array  is  allocated  to  such  a variable  when  it  is 
declared!  in  this  case,  the  number  of  words  allocated  is  equal  to  the  parameter 
("Index")  used  in  the  declaration.  (For  instance,  a declaration  like 

local  Vector  QQQQ  [44i51 : 

causes  (he  array  QQQQ  to  have  fengfh  445  words.)  The  remaining  expression  indicales 
how  this  structure  is  to  be  accessed;  the  location  of  the  base  variable  and  the  value 
of  the  Index  are  summed  to  get  an  address,  and  the  36  bits  starling  at  bit  0 of  the 
word  at  that  address  (that  Is,  the  whole  word)  are  referred  to. 

The  Vector  structure  happens  to  bs  predefined,  but  all  other  structures  must  be 
defined  by  the  user's  program.  The  definition  of  this  structure  in  BLISS-1 1 is  slightly 
different  from  its  definition  in  BLISS-10,  because  of  the  different  data  formats  of  the 
two  machines:  one  can  declare  vectors  of  bytes  or  vectors  of  full  words,  and  thus 
take  advantage  of  either  the  byte  addressing  or  the  word  addressing  of  the  PDP-11. 

This  background  helps  to  explain  the  organization  of  SYSPRM.REO.  The  definitions  in 
(his  file  which  hide  differences  between  the  POP-10  and  the  PDP-11  can  be  grouped 
into  four  categories: 

1.  the  definitions  of  "standard  structures".  These  are: 

BYTVECT  - array  of  8-bit  bytes  X 

CHARVECT  - array  of  ASCII  (7-bil)  characters 
HFVECT  - array  of  half  words 

HFTABLE  - array  of  half  words,  from  which  subfields  may  be  accessed 

« 

2.  the  definitions  of  machine  characteristics.  These  are  occasionally  useful  even 
outside  the  definitions  of  the  standard  structures.  They  are: 


QADRINC 


POP-IO 

1 


PDP-11 

2 


- address  increment  from  one  full  word 
to  the  next 


qchswrd 


5 


2 


QADRSIZ 

QWROSIZ 

QUFSIZ 

QSPARE 


18 

36 

18 

35 


- tt  of  ASCII  chiirnclers  piicked  into 
one  full  word 
16  - width  in  bits  of  • pointer 

16  - width  in  bits  of  • full  word 

8 - width  in  bits  of  a half  word 

1 - position  within  a word  of  a bit  which, 

if  the  word  contains  a pointer,  is  not 
relevant  (by  convention)  to  that 
pointer.  For  the  PDP-11,  this  is  the 
lowest  order  bit  of  the  word,  since  full 
words  are  aligned  on  even  boundaries, 
and  pointers  to  them  always  have  zero 
in  the  lowest  bit.  For  the  POP- 10,  this 
may  be  any  of  the  bits  in  the  high 
order  half  of  the  word,  since  by 
convention,  pointers  are  always  held  in 
the  lower  half. 


3.  the  definition  of  the  packed-string  data  typo.  This  is  a set  of  definitions, 
primarily  of  operators,  for  manipulating  strings  of  characters.  What  makes  those 
definitions  interesting— they  are  the  only  section  of  SYSPRM.REO  which 
underwent  a major  design  iteration — is  the  crucial  difference  between  the  basic 
string  operations  “read  (wrile)  a character  and  step  to  Ihe  next  character",  on  the 
two  machines.  On  the  POP- 10,  those  operations  (the  IDPB  and  ILDB  instructions) 
move  to  the  next  character  before  reading  or  writing;  on  the  PDP-11,  the 
corresponding  operations  (the  autoincremont  addressing  mode)  cause  reading  or 
writing  before  moving  to  the  next  character.  This  difference  cannot  be  hidden 
without  imposing  some  restrictions  on  the  operations  which  may  bo  performed  on 
strings.  Wo  therefore  divide  string  pointers  into  two  categories:  those  for  which 
every  access  of  a character  is  accompanied  by  a step  from  one  character  to  the 
next  ("I-pointers")  and  those  for  which  stepping  to  the  next  character  must 
always  bo  done  separately  ("N-pointers"). 


4.  the  definitions  of  two  "library"  routines  which  happen  to  be  coded  as  macros, 
rather  than  as  closed  subroutines.  Those  arc  the  routines  to  clear  out  a block  of 
core  and  to  copy  one  block  of  coro  into  another. 

2.  Language  Differences 

Neither  BLISS-11  nor  BLISS-IO  is  a proper  superset  of  Ihe  other.  Generally,  however, 
wo  did  not  make  much  use  of  features  of  one  language  which  were  not  present  in  the 
other,  and  the  list  of  such  features  for  which  we  put  fake  definitions  in  the  versions  of 
SYSPRM.REO  is  uninferesting.  However,  three  exceptions  should  be  noted: 

- The  BLISS-11  SIGNAL/ENABLE  construct  caught  our  fancy,  and  we  used  it  tor 
compilation  error  handling.  Therefore,  we  were  obliged  to  write  BLISS-10 
constructs  to  simulate  it.  We  were  surprised  to  find  that  this  was  possible. 
The  BLISS-11  library  file,  S1GENB.MAC,  which  is  a standard  part  of  the  BLISS- 
11  compiler  distribution,  corresponds  to  the  BLISS-10  library  file,  SYSDCP.MAC 


(which  contains  some  miscellaneous  material  not  related  to  SIGNAL/ENABLE  as 
well).  The  only  problem  yith  our  simulation  of  SIGNAL/ENABLE  is  that  some 
extra  code  is  required  on  normal  termination  of  a block  containing  ^ €NABLE 
declaration,  to  pop  a frame  off  the  (conceptual)  "ENABLE  stack".  The  BLISS-11 
compiler  outputs  this  code  automatically,  but  of  course  the  BLISS-10  compiler 
does  not;  we  put  the  code  in  the  macro  ENABENO,  and  we  enforce  the 
convention  that  every  path  to  exit  of  an  ENABLEd  block  must  end  with  an 
ENABEND,  to  get  around  this  problem. 

- Wo  wishod  to  set  up  extensive  proloaded  symbol  tables  with  the  BLISS  PLIT 
facility.  We  stumbled  over  one  characteristic  of  those  symbol  tables,  namely, 
that  they  contained  many  pointers  to  themselves  and  each  other.  The  BLISS- 
10  NAMES  and  GLOBALLY  NAMES  feature  allowed  us  to  generate  the  necessary 
pointers  easily  and  cleanly,  but  there  is  no  corresponding  feature  in  BLISS-11. 
Therefore  we  wrote  a set  of  iterated  and  recursive  macros  which  simulated 
those,  as  well  as  the  related  INDEXES  and  GLOBALLY  INDEXES  feature.  The 
simulation  is  not  quite  complete,  because  the  iterated/recursive  macro 
processor  attempts  to  update  an  index  into  a PLIT  that  it  is  building  by 
counting  the  arguments  which  fly  by  it;  it  doesn’t  understand  other  features  of 
the  PLIT  facility,  such  as  duplication  factors  and  strings.  However,  we  did  not 
need  to  make  use  of  these  features  in  our  symbol  tables. 

- The  BLfSS-10  and  BLlSS-ll  macro  processors  do  noi  expend  mecro  arguments 

in  quite  the  same  way.  From  our  point  of  view,  the  problem  is  this:  Let  there 
be  a macro  A,  with  a formal  parameter  FA,  and  a macro  B,  with  possibly  some 
formal  parameters.  Suppose  there  is  a call  such  as  ' 

A ( B (...)  ) 

and  the  call  of  B results  in  a string  containing  a comma--fhat  is,  a comma  which 
is  not  hidden  by  being  between  a matched  pair  of  parentheses  or  brackets  of 
some  sort.  The  BLISS-11  macro  processor  completes  the  expansion  of  the  call 
of  B while  setting  up  the  call  of  A,  and  since  it  regards  the  comma  as  an 
argument  separator,  it  concludes  that  A has  (wrongly)  been  passed  two  actual 
parameters,  instead  of  just  one.  The  BLISS- 10  macro  processor  does  not  do 
this,  treating  the  entire  call  of  B as  a single  parameter  to  A. 

In  the  ordinary  course  of  programming,  we  did  not  encounter  such  problems, 
because  of  our  generally  conservative  use  of  macros.  However,  the  slightly 
bizarre  tricks  we  used  in  the  set  of  macros  which  set  up  the  table  of 
productions  tripped  across  exactly  this  problem.  Wo  solved  it  by  "quoting"  the 
comma  which  was  generated,  in  the  BLISS-11  version,  so  that  the  BLISS-11 
macro  processor  would  not  recognize  it  as  an  argument  separator;  this  is  the 
origin  of  the  macro  "quoted"  which  is  defined  in  SYSPRM.REQ. 
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3.  Operating  System  Differences 


Bocfluse  more  than  20  complete  operating  systems  are  in  use  on  PDP-U's  and 
configurations  of  POP-11  processorsi  the  problem  of  Isolating  the  operating  system 
interface  (or  Operating  System  Environment,  05E)  would  have  to  have  been  faced  even 
if  we  had  not  had  to  write  a PDP-10  version  of  the  compiler.  It  almost  goes  without 
saying  that  this  problem  cannot  be  solved  by  a single  “REQUIRE  file"  of  useful 
definitions.  The  TOPS-10  OSE  consists  of  2K  words  of  code  distributed  over  2 source 
files  (and  some  files  from  a Bliss-10  library),  and  the  HYDRA  OSE  is  about  half  as  large. 
Thus  the  OSE  constitutes  a separate  subdivision  of  the  compiler,  and,  as  with  other 
subdivisions,  the  interface  between  the  OSE  and  the  rest  of  the  compiler  has  been 
redefined  several  times. 


Originally  we  thought  of  the  OSE  as  a collection  of  utility  subroutines;  the  compiler  at 
the  top  level  was  a system-independent  controller  consisting,  liKe  many  compilers  and 
other  file  processing  programs  under  TOPS-10,  of  an  infinite  loop: 

DO 

<read  input/output  file  specifications> 

<ereate  object  file  from  source  file> 

OD 

Eventually  we  realized  that  the  top  level  of  the  compiler  must  itself  be  part  of  the 
OSE.  The  system-independent  portion  of  the  compiler  is,  at  its  top  level,  a subroutine 
which  compiles  a single  Algol  source  program.  This  seems  to  be  the  largest  unit  of 
computation  which  all  possible  OSE’s  can  deal  with,  ranging  from  the  simplest  paper- 
tape  load-and-go  systems  for  bare  PDP-H’s  to  complete  operating  subsystems  with 
their  own  text  editors,  linkers,  and  version  backup  systems.  Thus  the  H^RA  OSE 
consists  of: 


(1)  A set  of  utility  subroutines,  invoked  from  various  points  in  the  system 
independent  part  of  the  compiler.  These  arc: 


(la)  OSEsrcchar 


(lb)  OSEIstline 


(Ic)  OSEerrmsg 


Reads  a single  character  from  the  source  file,  and  returns  the 
character  as  its  value.  End-of-file  is  denoted  by  a special 
character.  Note  that  end-of-file  here  means  end-of-logical- 
source-program;  for  instance,  in  the  TOPS-10  OSE  (and 
perhaps  in  future  HYDRA  OSE’s)  the  source  program  compiled 
in  a single  compilation  may  stretch  over  several  of  the 
entities  that  the  operating  system  knows  of  as  "files". 

Sends  a single  line  of  text  off  to  be  listed.  The  system- 
independent  portion  of  the  compiler  believes  that  there  are 
two  places  to  which  text  output  may  be  sent:  a "listing 
device"  and  a "command  device",  corresponding  in  many 
systems  to  a line  printer  and  a user’s  terminal,  respectively. 
Thus  one  of  the  arguments  to  this  routine  is  an  indicator  of 
which  place(s)  the  line  is  to  be  sent  to. 

Outputs  a single  error  message.  The  sols  argument  to  this 


i 


I 


i 


J 


routine  is  a numbpr  intlicating  which  of  many  compilation 
errors  occurred.  In  some  OSE’s,  such  as  that  for  TOPS- 10, 
this  routine  consists  only  of  one  or  more  invocations  of 
OSEIstline.  It  is  included  in  the  OSE  itself  because,  in  general, 
the  method  of  obtaining  the  error  message  text  to  be  output 
Is  expected  to  be  system-dependent.  For  instance,  in  the 
HYDRA  OSE,  the  error  messages  are  not  normally  Kept  in 
addressable  core;  this  routine  makes  them  addressable 
temporarily. 

(Id)  OSEobjword  Outputs  a single  word  of  code  to  the  object  file.  This  would 
be  too  small  a unit  of  output  if  the  compiler  had  to  deal  with 
different  loader  formats  tor  such  things  as  fixups,  relocatable 
segments,  and  overlay  structures,  but  we  have  avoided  those 
by  writing  our  own  loader.  OSEobjword  is  a null  routine  in 
the  TOPS-10  version. 

(2)  A "top  level".  This  opens  various  standard  channels  tor  1/0,  performs  other 
system-dependent  initializations  (e.g.  initializing  the  symbolic  debugging  system), 
and  calls  the  system-independent  compiler.  In  load-and-go  systems,  this  top  level 
might  start  the  user’s  program  when  the  system-iiHHependont  compiler  had 
finished.  (Alternatively,  this  might  be  more  conveniently  left  to  the  operating 
system  itself.)  The  current  HYDRA  OSE  lop  level  also  includes 

(2a)  A routine  to  handle  aborted  compilations.  The  system-independent  compiler 
may  find  itself  unable  to  continue  due  to  such  things  as  internal  errors,  lack 
of  core,  or  1/0  failures;  in  such  cases  it  returns  to  its  caller,  with  a result 
value  indicating  the  cause  o?  failure. 

(2b)  Routines  to  iiutialize  the  settings  of  various  compilation  options,  based  on 
Information  supplied  by  the  user  to  the  operating  system  and  passed  by  the 
operating  system  to  the  OSE. 

(2c)  A routine  to  clear  out  a workspace  in  core  for  the  compiler;  this  initialization 
must  be  in  the  05E,  because  different  versions  may  have  completely 
different  arrangements  in  memory  of  the  compiler's  code,  workspace,  and 
internal  control  stack. 


(3)  A set  of  global  variables,  which  servo  as  an  addilional  means  of  communication 
between  the  compiler  and  fhe  OSE.  They  are; 


(3a)  GBLerrs 
(3b)  GBLwarns 

(3c)  GBLtreelo 
(3d)  GBLfroehi 
(3e)  GBLprogsfart 
(3f)  GBLpragflags 


Count  of  ordinary  compilation  errors. 

Count  of  "mild"  compilation  errors-'those  which  do  not 
prevent  the  compiler  from  generating  code. 

Points  to  the  start  of  the  compiler’s  workspace. 

Points  to  the  end  of  the  compiler’s  workspace. 

An  indication  of  the  starting  address  of  fhe  compiled  program. 
The  area  (currcnily  a single  word)  in  which  all  the  compilation 
option  settings  are  kept. 


I 

I 

I 


; 

1 
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4.  Conclusions 

There  is  a natural  conflict  between,  on  the  one  hand,  the  universal  language  design 
goal  of  portability  and,  on  the  other  hand,  one  of  the  goals  of  system  implementation 
languages  (SIL‘s)  in  particular,  namely  that  the  programmer  should  bo  able  to  maKe  use 
of  all  the  facilities  of  the  hardware,  such  as  unusual  instructions.  The  designers  of 
PL/360[6]  have  resolved  this  conflict  by  sacrificing  portability  altogether.  The 
designers  of  MARY[7]  describe  a subset  of  the  language,  "safe  MARY",  and  a set  of 
features  which  extend  it  to  "unsafe  MARY"  programs  written  entirely  in  the  subset  are 
guaranteed  to  be  portable  from  one  computer  to  another.  The  compiler  can  enforce 
the  restriction  to  the  subset,  if  the  programmer  desires.  The  approach  taken  by  BLISS 
is  not  quite  so  strict  as  this.  The  designers  regarded  the  various  dialects  of  BLISS  as 
"a  class  of  languages  that  are  similar  in  philosophy  and  that  mirror  a similar  concern 
for  the  important  aspects  of  systems  programming,  but  each  of  which  is  tailored  to  its 
host  m8chine[3]." 

Usually  the  requirements  of  portability  cannot  bo  ignored.  The  more  successful  SIL’s 
are  bound  to  be  implemented  on  more  than  one  kind  of  computer,  and  for  all  but  the 
lowest -level,  most  hardware-dependent  programs  (device  handlers,  diagnostics,  and  so 
forth)  it  will  always  be  attractive  to  copy  a program  already  written,  even  from 
another  computer,  rather  than  to  write  a new  program  from  scratch.  Therefore  it  is 
useful  to  consider  what  aspects  of  BLISS  we  found  helpful  in  constructing  a portable 
program,  and  what  aspects  were  useless  or  even  harmful. 

It  io  evident  that  our  principal  tools,  namely  the  REQUIRE  feature  and  the  practice  of 
keeping  the  two  libraries  in  separate  groups  of  files,  are  extremely  powerful,'  they 
could  be  used,  and  were  used,  as  a "last  resort"  in  the  solution  of  portability  problems, 
when  there  was  no  way  to  avoid  writing  two  different  (machine-dependent)  versions 
of  some  routine  or  group  of  routines.  The  effectiveness  of  our  techniques  is  therefore 
judged  by  the  extent  to  which  we  had  to  use  the  "last  resort",  i.e.  by  the  size  of  the 
libraries.  Indirectly  we  also  judge  the  suitability  of  BLISS  for  writing  portable 
programs  by  this  criterion. 

In  this  respect  the  STRUCTURE  definition  facility  has  been  outstandingly  successful. 
The  string  data-type  is  an  example  of  what  has  been  done  with  this.  Strings  are 
represented  in  completely  different  ways  on  the  two  machines:  packed  5 characters 
to  a word  on  the  PDP-10,  aligned  on  byte  (half  word)  boundaries  on  the  PDP-11.  But 
by  the  use  of  the  CHARVECT  structure,  together  with  a small  set  of  operations  based 
on  the  BLISS- 10  "special  functions"  SCANN,  REPLACEI,  etc.,  we  have  made  string 
maniputation  completely  uniform,  so  that  no  library  routines  whatever  had  to  be 
written  for  it.  Perhaps  an  even  more  striking  example  is  that  of  the  structures 
PBLOCK  and  OBLOCK,  the  standard  structures  onto  which  pointers  to  blocks  of  packed 
data  arc  mopped.  These  did  not  even  have  to  be  defined  in  SYSPRM.REQ,  and  thanks 
to  ttie  macros  RK  LK  VWRDF,  ADDRF,  and  SPCF,  the  definitions  of  fields  in  the  various 
types  of  blocks  need  not  bo  placed  in  the  machine-dependent  REQUIRE  file  either. 


The  LINKAGE  definition  facility  should  also  be  mentioned  although  we  have  so  far  made 
littte  use  of  it.  By  defining  a linkage,  such  as  REGO,  one  imposes  special  calling 
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conventions  (e.g.  special  locations  for  actual  parameters)  on  all  routines  which  are 
declared  with  that  linkage,  it  is  particularly  well  designed  for  portability,  in  the 
following  respects; 

- Code  which  makes  use  of  LINKAGE  definitions  and  is  correct  is  guaranteed  to 
be  correct  when  the  use  ot  special  linkages  is  removed. 

- The  use  ot  special  linkages  is  particularly  easy  to  remove.  That  is,  the  "fake 
definitions"  which  one  must  put  in  one  version,  corresponding  to  the  linkage 
definitions  and  uses  of  another  version,  are  extremely  simple.  The  definition  of 
REGO  in  the  BLlSS-10  version,  our  only  example,  is  a null  macro. 

Two  features  of  BLISS  which  we- had  to  essentially  ignore  (except  in  the  construction 
of  libraries)  were  the  ability  to  descend  into  machine  code  (the  K^ACHOP  feature  of 
BLISS-IO,  the  OPCODE  feature  of^LlSS-ll)  and  the  ability  to  force  local  v^iables  to 
be  allocated  to  the  machine's  fast  registers  (the  REGISTER  declaration^  It  Is  worth 
asking  why  we  could  not  make  use  ot  the  second  of  these. 

The  alternative  to  the  REGISTER  declaration,  m both  versions  of  BLISS,  is  the  LOCAL 
declaration.  The  choice  between  these  two  alternatives  is  not  quite  the  same  in 
BLISS- 10  as  it  is  in  BLISS- 11.  In  the  former.  LOCAL  variables  are  always  allocated  on 
the  control  stack,  but  in  the  code  that  is  generated,  copies  of  the  variables  are  often 
put  in  registers  to  allow  easier  access  to  them.  In  the  latter,  any  L(XAL  variable  may 
be  allocated  either  to  a register  or  to  a location  on  the  stack,  depending  on  the  wliim 
of  the  compiler,  which  attempts  to  find  an  optimal  allocation.  In  both  cases,  the 
usefulness  of  declaring  a variable  as  REGISTER  instead  of  LOCAL  in  order  to  make 
frequent  accesses  to  it  less  expensive  is  clouded  or  even  nullified  by  the  actions  of 
the  compiler.  Thus  REGISTER  declarations  are  primarily  useful  only  when  they  are 
necessary,  o.g.  in  conjunction  with  use  of  the  MAChOP  (OPCODE'  feature. 

This  paper  has  not  covered  two  .ispects  of  the  question  of  portability  which  may  be  of 
general  interest.  The  first  of  these  is  portability  between  really  different  languages. 
Although  a version  of  the  compiler  has  been  produced  principally  by  transcribing  the 
BLISS  source  code  into  another  (unrelated)  higher-level  language  (PASCAL),  we  were 
not  sufficiently  familiar  with  that  effort  to  discuss  Ihe  questions  raised  by  it  in  this 
paper. 

I 

The  spconcf  of  these  is  portability  of  the  compiler  to  installations  where  BLISS 
compilers  are  not  available.  Since  the  BLISS-11  compiler  produces  assemblable  PDP- 
11  (Ode,  it  is  possible  to  export  the  POP- 11  version  of  the  compiler  m the  form  of  a 
set  ot  assemblable  files.  But  this  leaves  little  room  for  the  user  of  the  system  to  make 
local  modifications  to  it,  such  as  additions  of  new  language  features,  or  modifications  to 
the  compiler's  pre-initialiccd  symbol  tables;  it  is  difficult  or  impossible  in  most  cases  to 
follow  the  assembly  code  produced  by  the  BLlSS-ll  compiler,  since  it  is,  after  all, 
completely  uncommented  and  unformatted,  and  labels  in  Ihe  assembly  code  do  not 
correspond  in  general  to  labels  in  the  BLlSS-11  source  code.  We  have  not  yet 
attacked  the  problems  raised  by  the  general  unavailability  of  8L1SS-11  compilers  at 
user  sites,  and  so  wo  postpone  the  discussion  of  them  to  future  articles. 
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Appendix 

The  following  files  sro  included  here  In  their  entirety! 


BIBPRM.REQ 

BllPRfl.REQ 

COmON.REQ 

SYSDEP.hAC 

sicenb.uac 

A68S1Q.B1B 

AB8S11.B11 

flOSTRC.REQ 
LEXAN  .BLI 
SRTABS.BLl 


POP  10  version  of  SYSPRH.REQ 
PDPll  version  of  SYSPRtl.REQ 
REQUIRE  file  used  by  every  module  in  the  compiler 

support  routines  for  BLi3S-10  SIGNAL/ENABLE 
support  routines  for  BLISS'*  II  SIGNAL/ENABLE 

heart  of  the  TOPS- 10  OSE 
heart  of  the  HYDRA  OSE 

typical  REQUIRE  file 

representative  code  modulo 

representative  use  of  the  DATAAREA  macros 
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PROE  1-1 


BIOPRII.  REQILlSOnLBBl  acnU-lOR 


21-Fib-77  13i21  IB  bleoki 


I BlOPRn.REQ  (Mitt  bt  copied  <e  SVSPRII.ReOI 


I Copfjrlfhl  1977 


P.  Hlbbord  otirt  P.  Kmiovon 
Plltibgryh,  Ponnoylvonlo 


I S^otoB-dopondonl  doelorollena  lor  the  Bilos  19  vorolen. 


Qodrine  ■ 1,  I InerpMnt  (rob  nerd  oddrooo  to  noxt  uerd  «diit>OM 
Qadroli  ■ IS,  I Nuabor  ol  biu  In  an  addraaa  valua  <pelntar> 

QchaMrd  ■ 6,  I Nuabar  ol  eharaetara  per  word 

Ohio  la  a IS,  I Nuabar  ol  bllo  par  hall-uord 

Ohtab  a 1,  I Trua  III  horlionlal  laba  nay  bo  oanl  to  output  dovlcf 

Qaparo  a 3S,  I Nuat  bo  S or  Qurdalt-i 

Qurdali  a 36|  I Nuabar  el  bita  par  nerd 


I Nacreo  to  aupply  actual  naaoi  el  lha  Operatins  Syotoa  EnvIronaonI 
I reutlnao  and  global!* 


GB’.orro 

CBLuarna 

GBLprnyl laqa 

CBlproyolarl 

GBLireohl 

GBLIroolo 

OSEarcchar 
OSEIat I Ino 
OSEobJdord 
OSEorraag 


T.arra  S, 
T.uarna  S, 
?.pragl  t,* 
7. props  %, 
7. Iraoh  S, 
7.lraal  S, 

7.SRCeh  9, 
7.LSTII  S, 
7.0BJHO  t, 
?.Erraa  t| 


I Itacres  to  saooth  over  the  dllloraneas  In  tha^Bliaa-lB  agntax  and 
I tha  Bllaa-ll  agnlax.  | 

I ; 

aacro  algnal(o)a  I 

begin  axtarnal  7.SIGNL(  l 

(.Fraq-1)<B,36»-7.SIGNL<8,0>| 
return  0 
and  S, 
anablan 

. roglator  RtSI|  I Forcoa  all  daclarablo  rags  to  bs  prasarved. 

I local  7,Frana(4)| 

axtarnal  7.ENnRL,Slgval,Slgrogi 
Vreg  - (7.Fraao-l)<S,l>| 

7.ENflBL(>i 
II  .Vrag  egl  B 
then  B 

eloa  oxitbleek  select  .SIgval  el 

nsal  B, 


alhanea 


I 


PACE  1-2 


osiji  bibpkh.  REQiLisonLss)  ocmi-ien 


21-F«b-77  13i21  18  block* 


Olh*rMl**t  ilgnol (.Sl9v«l) 

loin  8, 


III 


Sigrogi-S(.SIqr*g-2> 

onooiaovon 

•nobonrti  l*«v*  8, 
•nMbrolurnii 

•nobanili  rolurn  8, 


». 

I Th*  progronaor  li  con  Honed  ngnlnil 
I u*lng  onublonv*  or  onAbrolurn  to 
I oKit  Mra  Ihnn  ono  lavol  el  ENABLEri 
I blecl'*|  «n  oxlrji  onitbond  I*  roqulrod 
I lor  oocb  lavol. 


byto  ■ 8, 

quolod  ■ 8, 

upl 1 1 ■ pi  1 1 8, 

uni«n*l  ■ lilt  $, 

alack loeol  ■ locol  8, 

RogO  ■ 8, 

imkIIRiB)  ■ <11  in>  goq  (B>  IHon  (R)  *l*»  (BH  8, 
■InllR.B)  > III  (R>  loq  IB)  than  (R>  *1**  IB>)  8, 
la*u  ■ I**  8,  loqii  ■ loq  8, 

aqlu  ■ *ql  8,  noqi)  ■ noq  8, 

goqii  ■ goq  8,  giru  ■ gtr  8, 


rtbindl I IN, V)  ■ 

bind  XXXltip  « V| 
unrincloro  N| 
bind  N ■ XXXlMpi 
undoc  loro  XXXtop  8, 


Honilg  nacre  In  Bll**-10 
10(m>  ■ m8, 


Crnal*  pointer  uhlch  connlaU  ol  the  adilro**  OR'd  ulth  the 
Qupare  bit.  TM*  cannot  bo  riono  In  a ilralghtforMarri  way 
duo  to  a Blle«-1B  buy. 

SpcPtr<K>  ■ (k><32,0>  8, 


Cheap  non-ioro  value 

nonced  ■ .Sr eg  8, 

Sene  atlenpta  at  lelving  the  problen  el  doelartng  data  In  a 
nachlno-lndopenriont,  language- Independent  way. 
najer  obetaeloa  to  be  eurMouniedt 

GLOBAL  BlNn*  to  aynbele  are  Illegal  In  Bl  1*1-18) 

Bll**-18  does  not  have  Initialized  OIIN*  or  CLOORL*) 

Rlla*-ll  doe*  no!  have  NRIICS,  INOCXCS) 

BIIb*-18  doe*  net  have  Iterated  or  recuriiv*  eacro*. 

glebalriala<*tre,nii,*t)  ■ bind  (Ire  lOlQOOInnliz)  apt  1 1 In*  globally  nano*  8, 
dataarealn)  ■ bind  Vector  lD(QQQ)n  ■ pi  It  I n globally  nano*  8, 
dataonri  <•  ) 8,  a 

gblnana(nana,d)  ■ nane  globally  nano*  d 8, 


A 


PRCE  1-3  DSKBiBlOPRn.llEQtLlSenLeSJacnU-ien  21-Fab-77  13i21  IB  block! 

9blnfiaK(noiio,d)  ■ nooo  9leboll9  IndoKoo  d t, 
locn«Mo(n«ao,d)  ■ nooo  n*oo!  d t,  ! 

locndoKinoitOid)  ■ nom  IndoKoi  d >,  i 

d«ta(d)  ■ d t, 

9lbn*na(x)  a x 9lobMll9  naood  t, 

9lbbind<x,v)  a ■Mltehot  opilalxo  t, 

I 

I Support  for  oachlno-lndopondonl  scan  and  roplaco  oporatlona 
I Soo  BllPRIt.REQ  for  ooro  oxplanatlon. 

I 

Nptrtooharafx)  a (x)<29|7>  S, 

Nplrtohytoifx)  a (x><28,B>  S, 

Iptrtoeharsfx)  a (x)<36, 7>  $, 

Iptrtobytoafx)  a (x)<36,8>  S, 

Ntolptrtx)  a (x>  S, 

ItoNptrtx)  a-  (x)  t, 

Iptrndxtx)  a ((x)-!)  S, 

I 

! Porforo  zero  and  mvo  oporatlona  In  boat  oachlno-dopondont  way. 

I 

2or ocor <a t ar t , cn t ) a 

bog  In  Machop  BLTaf251; 
roglatar  R| 

Ra.(atart)4l|  R<18,18>«-(atarl)| 
tlart-0| 

BLTIR.  (otart>«((ent>-l))| 

novaluo 

and  S, 

llovocor  (a,d,ent)a 

begin  oaehop  DLTa#2Sl| 
roglatar  R| 

Rr(d>i  R<18,i8>a(a>t 
BLT(R,<d)a((enl)-l))) 
novaluo 
ond  t| 

! 

I Sana  atriicturaa. 

! 

atrunturo  DytovaettI)  a ((l-f3>/4}  (.Bytavect*.  I/4)<28-8*(. I and  3),8>| 
atructura  Cfiarvocttl)  a (<I-f4>/5}  f.Charvoet'*.  l/5><29-7al.  I ood  S>,7>| 
atructura  Hfvact  (1)  a ((I'*l}/2)  (If  .1  than  (.HfvocI*.  I/2><1B,  18> 

alaa  (.Hfvacl«> 1/2)<B,18>)| 

atrunturo  Hf tabla(l,J,P,SI  a t(l4ll/2)  (If  .U.J  than  (.Hf tablo4(. U.J>/2)<184.P, .S> 

alaa  (.Hftabloal. U>J)/2)<84.P,.S>)| 
» 

I 

I END  OF  BlOPRtl.REQ 


1 


f 
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t9-P«b-77  tSi38  IS  btoeki 


I BllPRn.REO  (•N>*t  b*  copUd  I0  SVSPRN.ReQ* 
t 

I Copyright  1977  P.  Nibb«rrt  «nri  P,  Kniioven 

I PttUbiirgh,  Pennnylvpnl* 


I SgulaP-rinpandAnt  deelarpt len»  tor  Iho  Bitot  U vtrtlen. 


bind 


Qtdrlne  ■ 2, 
Qbdrtli  ■ 16, 
OchtHril  ■ 2, 
Qhlali  > a, 
QhlPb  ■ 0, 
Qaptro  ■ 9, 
OMrilili  ■ 16 1 


I Incrotent  Jrot  Mord  tddrett  to  noKl  Mord  Mddrttt 
I Niitbor  tt  bill  In  «n  pdrtroti  v«lut  (polnlarl 
I Niitber  el  chtroelart  per  Herd 
I Niitber  ol  bttt  par  hnll-Hord 

I True  Ml  horlzent*!  l«bt  B*y  be  aanl  to  output  davleo 
I lluat  ba  0 or  QMr|lKli-l 
I Niiaber  ol  bill  par  uord 


I Hacroa  to  aupply  pctual  naaaa  el  lha  Operating  Sgataa  Cnvlretiaanl 
I routlnaa  and  globala> 

I j 

■aero  I 


CBLorra 

■ 

9Erro  9,  i 

CBLuarna 

• 

SUarna  9,  1 

CPLIroole 

■ 

9rrealo  9, 

GIII.Iraohl 

m 

SEraohl  9, 

COLprogalarl 

m 

tProggt  9, 

CDLpragI laga 

• 

SPragll  9, 

OSCarcchar 

■ 

9SRCchar  9,  , 

OSE lal  1 Ina 

m 

9LSTI Ina  9,  | 

OSEob  juard 

m 

SOOJiiord  9, 

OSEarraag 

m 

9Erraag  9| 

I 

I Itarroa  to  aneolh  over  the  dlllarancaa  In  the  Dllaa-16  igntaa  and 

I lha  ni laa-11  agntax, 

I 

Macro  annhnnd  u I, 

anahlaava  • laava  9, 
anabroturn  • return  9, 
quoted  ■ fquota  tquota  9, 
imkI<A,6>  • ((A)  MN  (BM  9, 
ninl  IA,B>  ■ MA>  aln  (B>)  9, 
aanlcolon  ■ | 9, 
rablnritl (N, V)  ■ rabtnd  N ■ V 9, 

I 

I Crnata  pointer  conniating  ol  addraaa  OR'd  Mill)  the  Qapare  bit. 

I 

SpcPlrlx)  « (x>  a 1 9, 


I 

I Chnap  non-'tero  value. 
I 


nencad  ■ .PC  9, 
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Sena  attanpti  at  solving  tha  problaa  o(  declaring  data  in  a 
nachlno-indopondont,  languago-indopendent  nag. 
tlajor  obatacias  to  bo  surnountadi  • 

GLOBRl  BINDb  to  sgabols  are  1 1 legal  In  Bliss-18; 

Dllaa-IB  does  not  have  Initial  lied  OIINs  or  GLOBRIb; 

Bllti-11  does  not  have  NRIO,  INPEXESi 

Bliai-IB  does  not  have  Itaratad  or  rocursiva  nacres. 

Nacros  uhnoe  nanos  begin  nith  8 (Stiakdata,  tSatupdata,  SStr ipparans, 
SSatupbinris)  are  net  intended  to  ba  used  outside  DllPRR.REQ  . 

globaldata(Btrc,nB,sz)  > global  bind  stre  nntszl  m uplitt  S, 
dataaroatnana)  ■ SRak data (nano,  S, 
dataond  ■ > 8, 
gb I nano (none) U m 

8quete2  8nanabind,  global,  nana,  SLangth-1,  (8Ranainlng)  8, 
gblndentnanei  ()  ■ 

8quote2  8indxbind,  global,  nana,  8Langth-l,  (SRanalning)  8, 
loenaBo(nana)  C)  ■ 


8guola2  8nanabind, 
lacndoK(nano)  [)  ■ 

8guota2  8lnrixhind, 

dataO  ■ 

8<|uete2  8nobind, 


, nana,  8Langth-l,  (SRanaining)  8, 
, nana,  SLangth-l,  (SRanaining)  8, 
, , SLength  , (SRanaining)  8, 


8nakdata(nana)  t1  ■ 

external  nana; 

bind  8Nano<'.NRIir..*)  ■ nano,  SNanatMNDCX. ' ) ■ D; 

8Sa  t upb 1 nds  <8Rona i n i ng) ; 

undoeiare  nane,8Nane('.Nfllir. ’),  SNaneC.  INDEX. ') ; 
global  bind  nano  ■ pi  It  SSatupdatalSRonaining)  8, 

Squoto2  B quoted  quoted  qiietod  S, 

Snanobindtnana)  b bind  nano  • SHanoC  . NRIIE,  ’ ) * 2«SNana(’ . INDEX.  ’ ) 8, 
8lndKbind(nana)  b bind  none  b SNanoC  . INDEX.  ’ ) 8, 

8noblnd(nana)  b sHitehos  eptlniza  8, 

8Sotupdata(bnd,gbl  ,nano,  Ian,  I Ist)  a SStripparons  list  S, 

SStr IpparensO  • SRanaining  8, 

8Satupbindn(bnd,gbl,nana, len, I Isll  a 
gbi  bndlnana);  ^ 

rebind  8Nana(MNnEK.  M a SNanoC.INDEX.  ’ )^lan  8, 
glbnana<K>  a S, 

glbbinri<K,v)  a global  bind  x a v 8, 


Support  lor  nachina-indapenriont  scan  and  replace  operations 

The  goal  Is  to  have  atticiont  charactari'bgta  scanning  operations 
Mhteh  are  naehine  Indopendent.  Bliss-10  provides  scan  and  roplaco 
operators  uhich  alien  the  progrannar  to  porlorn  PDP-IB  bgta  Instructions 
and  thiin  are  rolativaig  alliclant.  Rn  nlllelsnt  nsthod  of  scanning  on 
the  POP-11  is  Ihreiigh  the  use  el  auto-ineronant  adrirasalng  nodes  in 
bgta  Instructions.  Thus,  an  obvious  approach  to  reaching  tha  goal  Is 
to  provide  BHss-ll  scan  and  raplaee  nacros  nhich  causa  tha  generation  at 
bgta  instructions  nith  aute-incronent  operands.  Tha  najer  diflicultg 
In  iMplonant ing  this  solution  is  that  lha  POP-18  poinlar-lneranent Ing 


PACE  1-3 
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i 


osi:niBiiPAn.NEa(LisonL66)ecnu-iofl 


Instructions  portora  tbs  Incronont  bslers  s latch  or  stora,  uhlis  ths  POP-11 
Instructions  Incronont  •llorNorits.  This  dllllculty  Is  ovorcono  by  lorelny 
ths  proyronnor  to  p«y  Spoclol  oltontlon  to  tho  uoy  In  which  pointors  oro 
Inltlollsod  and  usori. 

Pointors  nay  bo  eno  el  two  varlotios,  1-polntor  or  N-pointor. 

N-poIntors  always  rolor  to  a particular  byto  until  an  Incp  Is  psriornod. 
I-poIntors  Incronont  boloro  oach  accsss,  l.o.  at  tor  an  accass  an 
I-peIntor  rotors  to  tho  byto  accossod.  Tho  rulos  lor  usiny  those 
kinds  ol  pointors  nay  bo  stated  by  consistent  ly  subst  Mutiny  N or  I 
for  X In  the  followlny  parayraph. 

X-poIntsrs  nust  bo  Inltlalliod  by  asslyniny  a value  yielded  by  an 
Xptrto...  operator,  nil  operations  on  an  X-peInter  nust  bo  an  Incp, 
X-operatlon  (l.o.  scanX,  raplacoX  or  copyXI)  or  the  appropriate  conversion 
operator. 

An  l-polnlor  value  nay  bo  convorlsd  to  an  N-poIntor  value  by  usiny 
ItoNptr.  Ths  now  N-peIntsr  relers  to  tho  byte  last  accossod  by  tho 
I-pelnlor.  Sinllarly,  Ntelptr  nay  bo  uciod  to  create  an  l-polntor  Iron 
an  N-polntor.  Tho  non  I-poIntor  rolsrs  to  tho  sane  byto  as  the  N-poInlsr. 
Iloiinvor,  since  only  I-operatlons  are  pornissible  that  byts  Is  net 
accessible  via  tho  I-peIntor. 


IptrndKtn)  Is  used  In  conjunction  with  tho  Bytovoct  and  Charvoct 
structiiros.  Uhon  iir.nil  as  tho  actual  paranetar  In  a Bytovoct  or  Charvoct 
structure  accoos,  It  produces  an  l-polntor  which  will  access  the  n-th 
byto  or  character  In  tho  lirst  I-oporatlon  In  which  It  Is  used. 


Incpiptrl 
scanNIptr) 
replacoll(ptr,x) 
roplacol  lptr,s) 
cepyllltipt.opt) 
copyll  (Ipt.opt) 
Nptr tocharu (s) 
Nptrtobytos  <x) 
Iptr toehars (k) 
Iptr  lobytos (m) 

1 toNpIr (m> 
Ntolptr (x) 
Iptrnilxlx) 


( (plr>».  (ptr)*l  ) t, 

( . (. (plr)><0,8>  ) t, 

( (. (ptr))<0,B>r(x)  ) S, 

( (. (pir) )<Q, 8>r (x) I lncp(<ptr>)|  ) S, 

( raplacel<(opl>,scanN((lpt>))  ) S, 

( roplacol  ( (opt)  ,scanll(  ( Ipt  I 7) ; Incptdpt));  ) t, 

X X, 

X S, 

X », 

X t, 

((xl-l)  S, 
ttxl^l)  $, 

X I, 


I 

I Porfero  soro  and  novo  operations  In  best  nachlno-dopondont  way. 
I 

Zorocor (adr , ent ) ■ 
bey  in 

rsyialor  Ptr| 
opcode  CLR; 

Ptrr  (adr)  ♦ (cnOoZi 
while  ,Plr  ytrii  (adr)  do 
CLR(«-Ptr>| 
nova  I US 
end  8, 


nevoeer(a,d,ent)a 


i 


POCt  i-« 
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osi;DtSiiPRn.REQaisoni6Bi«cnu-iOR 

b09ln  ro9l*(*r  8rC|0*t|  ^ 

epeed*  HOV) 

Src«-t|  0*t»dt  I 

doer  I (roo  (cnl)-l  to  • do 

n0V<(«Sre,(»0*t)|  ' 

nova I u*  ! 

ond  >1  I 


I Sooo  (tructuro*.  i 

I I 

ctruaturo  i 

Bytoveetd)  a (1)  (tBytovoota. n<l,6>i 
Charvoet(I)  a II)  (.Charvoeta. I)<ltB>t 
Hlvoelin  a II)  (.Hfvoel«.I)<a,8>. 
H«tabl*(l,J,P,S)  a (1)  (.HIIabl**.U.J><.P..S>| 

I 

I 

I Soao  I Inkago*. 

I 

I Ink ago 

RogO  a Bl l■•(r•gl■t•raQ)| 

I 

t END  OF  BllPRn.REQ 
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PflGC  1-1 


ost:Bi  corinoK.  KCQCLisoRLsai  «CRU-ion 
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I COHIION.RCQ 

r 


I Copyright  1177 


f.  HlbbArd  ond  P.  Kniioven 
PIttoburgh,  PonnoylvonI* 


I CoMMn  dollnltlono  Ineluitoil  In  ovnry  nodulo. 


I Targol  aachlr 


#1«900B, 


Zadrlnc  ■ 2. 
Zchaurri  ••  2, 
Zhtola  ■ S, 
Zoparo  ■ 1, 
ZMrdoli  a 18, 

ZRiltNaiori 

ZPoliLEnhnao 

ZPalilBbaaa 

ZRalilBtop 

ZttaliDraaaad 

ZRtypConbloek 

ZPnltOBaetrlp 

I Uaatui  KayMorda 


I Incraaant  (ran  Mord  addraat  to  naat  word  addraaa 
) Characlara  par  aarri 
I 8 1 (a  par  ha  1 1 -Hard 

I ValHa  lo  add  lo  aaka  an  lllagal  word  addraaa 
I 8 1 la  par  uord 


4alH  ZPaliNalad  a(|l  1 ^han  Z) , 

2.  ^ 


thif  a than  IIS, 

all!  a alaa  IIS, 

allalaa  a alHaya  t,  I To  ba  uaad 

repoat  a Hhlla  1 do  t,  I 

ax  III  a laavo  L nlth  t, 

nnvalun  a .Vroy  t, 

booHa)  a It  (a)  than  trua  t, 

tliMiSIx)  • (2a(x>  + (x))  S, 

•oduloa.R)  a (M  ((8)  and  -III))  aql  (8) 
than  (L>  and  (8>-l 

alaa  <L)  aod  <81 ) S, 

dlvldaa,8>  a ( It  (8)  aql  1 than  (D 

all  I (8)  apl  2 than  (Dtl-l) 

Pill  IR>  aql  t than  iDtl-Z) 

olto  (L)/(R)>  S, 

naglatr)  a NplPloeharnttipl It  aacli  air)  t, 
conaant  a aMlIehaa  epllaltai  t| 


I To  bo  uaad  Ilka  *T*  In  a Liap  COND. 


I Sona  alructuroa 

Btrucitira  DitvaetIP.SI 
Birtiulura  Pbloct  ll,P,S) 
alructtiro  Qblock  lt,P,S) 
olriictupo  Canatbvll, J,K) 


(.Bltvact)  <.P,.S>| 
(t-PblockaOaririnct.  D^.P,  .S>t 
(t>Oblaci»Qadrlnca(. I-1))«.P, .S«( 
III  .K  oql  8 
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13-Jul-77  12tl4  18  blocK 


than  .Constbvtt-. I)  and  lt.J-1 

al«a  .Constbvtt-. J)  and  lt.K-1)  <8,8>| 

I Hors  usstui  dot  Ini t ions  - 

bind 

trus  ■ 1, 

Islts  ■ 8, 

zsd  ■ 8, 

Conatbv  llinutl  * -1, 

HTab  - #11, 

LF  . #12, 

FF  - #U, 

CR  - #1S, 

EOFchar  . #208, 

SRPLatlisIzs  ■ 128,  I Ssasnt Ic/Syntax  ituct;  ilzs 
Cbufilzaa  132t  I Standard  charactar  buffsr  sizt 

I Hacros  iisslul  In  flald  dsf  Ini  t Ions 

Micro 

2RH  ■ 0,Zhtsi2  S, 

ZLH  ■ 2h(slz,2hfslz  S, 

RH  - B,0hfslzS, 

LH  ■ Qhfalz.ahfsIzS, 

Uorrif  ■ 0,0urdr.lz  S, 

Rddrl  ■ 0,Qadralz  S, 

Spct  ■ Qspnro,!  S, 

Clrsparota)  ■ (x)  and  not  ItQspars  S, 

Zhfuorda(Le,HI>  ■ ((HDtZhtsIz  or  (Lo))  t, 

HlHordcao,HI>  • ((HI)tQhfilz  or  (Lo>)  S| 

I Fatal  srror  codos 

bind 

FatNnnpaco  ■ -1, 

FatBiitovtl  > -2, 

FatUssr  ■ -3| 

I Inttrlaeo  to  Oporatlng  Syotop  Envlronnont  (OSE) 
oMtsrnai 

CBLorra,  GBLiiarnB, 

GBLfrselo,  GBLfrsahi, 

GBLprogotart, 

Bltvact  GBLpragf lays, 

OSEsrcchar, 

RagO  OSEIatllno, 

RsgO  OSEobjMord, 

RagO  OSEarrnagt 

I Flald  da( Ini  liens  for  GBLpragllagt 
Macro 

Prgilrop  ■ RH  B,  ^ 

Prgllst  ■ Qhfslz«8,l  S, 


I 
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Pryob)  ■ Qh<sls«l|l  S, 

PrgHitrn  ■ QhfBli'*2,l  S, 

I Pr9a«ch  ■ QhlsU«3,l  S, 

I Prynonnkod  * Qhfsli^i,!  0, 

Prqnoybosl  ■ Qhlslz«S,l  S| 

P 

I END  or  COnPION.REQ 


PACE  l-l  0Si;B«SVS0CP.ftflC(L150nt6«JeCn0-lW»  22-f«b-77  !St«*  5 block! 

I SYSDEP.rtnc 


I 

I Copyriqht  1977  P.  Hibbard  and  P.  Kmiovon 

I PIttcburgh,  Penngylvania 

TITLE  STSDEP  PLCOLBa  SYSTEH  OEPtNnCMT  nnCIIIME  LONCUflCE  ROUTINES 
TUOSEC 


JODRENr«i2* 

LOC  JOOREH 
XHO  O.RENflOR 

LOC  JODbl 

JFCL  I NOP  FOR  SIXI2  UUO'S 


RELQC  400000  I 

I COtIPILER  COHRTnNTS  i 

LSTCHHnal  ; LISTINC  CHmiNEL 

I 

; CRLLl  DEFINITIONS 
RESET»0 
EXIT—12 


t CODE  EXECUTED  MHEH  HOIIITOR  "REENTER”  COHtlllHO  IS  GIVEN 

RENmiRt  CLOSE  LSTCHM.a  , CLOSE  LISTING  FILE  ON  REENTRY 

CRLLI  0, RESET  ; DO  NOT  UNITE  OTHER  FILES 

CRLLl  O.EXIT  I GO  BURY 


) BLISS  10  SPECIRL  REGISTERS 

SSmmO  t SREG:  STRCL  POINTER  REGISTER 

SF»2  ; FRECt  POINTS  TO  CURRENT  INVOCRTION  BLOCL 

SV..3  I VRECi  VRLUE  REGISTER 


DETECT  FLOATING-POINT  OVERFLOH 


I 

FLTOVFii 


SETO  SV, 
JFOV  . *2 
SETZ  SV, 
POPJ  SS, 


ENIIBLE  FRRHE  FORIIAT 

FRAME»Oi  POINTER  TO  ENABLE  CODE 

FRRItr.ali  POINTER  TO  PREVIOUS  FRAIICO 

FRRHF.aZi  SAVED  FREC 

FRAAEaSi  SAVED  SREG 
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ROUTINE  TO  SET  UP  ENOPLE  FROIIC 
INPUTS 

VREC  - POINTER  TO  NEU  4-UORO  FRIUIE-I 
OUTPUTS 

SICREC  - POINTER  TO  rRAIIE*3 


VREC  - ZERO 

ENROL: 1 

EXCH 

»s.l 

PUSH 

tv, 0(1) 

PUSH 

tv, SICREC 

PUSH 

tV.tf 

PUSH 

*v.l 

SOS 

8(SV) 

novcn 

SV.SICREC 

SETZ 

»v. 

EXCH 

ts,i 

POPJ 

»s, 

I ROUTINE  TO  PCRFORtl  fl  SICNRL 
j INPUTS 

I VREC  - sicNm.i.r.n  vrluc 

; OUTPUTS 

I SICVflL  - SICNRIXEn  VRLUE 
I SICREC  - RESTORED  TO  POINT  TO  PREVIOUS  FRAME 
j VREC  - NON-ZERO 

; RETURNS  TO  MOST  RECENT  lOVNRMICALLY)  ENABLE  DECLRRRTION 
.SICHtii 


novcn 

SV.SICVAL 

novE 

SV.SICREC 

POP 

sv,ss 

POP 

$V,SP 

POP 

SV.SICREC 

POPJ 

»V, 

; INITIAL  ENABLE  CODE 
ENABA:  CRLLI  l.EXIT 

; INITIAL  ENABLE  FRAME 

FRAMEBi  EXP  ENABO,  FRRMEO»3,  6.  B ' 


RELOC  0 

; VARIABLES  USED  BY  SICNAL/ENABLE  ROUTINES 
SICVALii  8 I SICNALLEO  VALUE 

SICREC: I FRRnE0*3  I POINTS  TO  TOP  OF  STOCK  OF  ENABLE  FRAMES 


END 
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I 


Fllai  SIGCNB.t111INaieHY971 

This  work  hss  siipiiortod  by  tha  llilwonoeil  Rossareh 
Prajaeta  Ayoney  oi  lha  041  lea  of  lha  Ssorolary  of 
Oof ansa  <F44G2O-73-C-0O74>  and  is  aonllorad  by  tha 
Air  Fares  Off  lea  of  Selsntllle  Rasaaroh. 

.TITLE  SICEHB 

.CSECT  SICE.C 

Tha  BLlSS-11  out  of  lino  routinaa  to  handla  SICNRL’a  and 
ENRBLE  frana  eraatlon. 

P.  Knuawon 

P.  Karllon  - changa  to  location  of 
SICREC  and  91CVRL  to  ba  SflUREC  and 
SAVVAL  aa  In  Sn;PAC.REQIN81iHY97) 
CoBBantad  out  LEV8  and  EXIT  also. 

Tha  dynanieally  naatod  occurroncoa  of  ENABLE  daelaratlons 
ara  roeordod  In  tha  LIFO  ENRQI.E  ataok.  This  Is  iBpIsaantad 
as  a I Inksd  list  of  3-Hord  stack  fraBas.  Tha  currant  top  of 
tha  stack  Is  pointad  to  by  .SICREC.  An  ENRRLE  frsBS  Is 
craatsd  each  tins  an  ENflOLE  dselaratlon  Is  'sKaeutod*. 

It  looks  Ilka  tha  folloulngt 

Offsst  Contants 

8 Po Intar  to  aost  rscant  provious  frsBa 

2 Valua  of  9P  for  tha  ENRBLE  body 

4 Pointar  to  tha  ENABLE  body 


.CLOOL  SSICNL.SSICNI 
.CLOOL  SENRBL 

.CLOOL  S 1C VAL, SICREC 

R8nZ0 

9P-R6 

PCnZ7 

I Calling  Soquoneo 
I nOV  E.R8 

I JIIP  SSIGNL 

t 

SSIGNLii  nOV  RG.SICVAL 

SSICNli  nOV  SICREC, R8 

nov  (Re>«, SICREC 
nOV  (R8>«,SP 

ROV  <Re)«,PC 

I Calling  Soquoneo 
I nov  dn*8,R0 

I JSR  PC.SEh.m 

I .UORD  L2-L1 
I Lit 

I ...  ENABLE  body  . . . 


ll-Nov-73 

26-Jul-76 


L 


I 
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L2t 


Mhara  n ta  2 plua  tha  eMaat  Inia  lha  alack  ol  lha 
apaca  raaarwad  lor  lha  IraM 


SCNROLi  RnO 
noif 
ROD 

nov 

ROD 

nov 

ROD 

nov 

nov 

RTS 


SP.RO 
(SP>, (RR) 

#2,  (RSI 
t(SP>.(8P> 
(RB),(SP> 
SP,-<RS) 

n,  (RS) 

SICREG,-(Ra) 

RS.SICREG 

PC 


( 


iSEXITi  HRLT 
I 

iSLEVOi  .HORO  S,e,SCXlT 

91GREG  - 27S  I SRVREC  addroBa 

SIGVRL  ■ 272  I SRVVRL  addroaa 

.END 


pnr.c  1-1  osKBineasii.iieiLisonLOSiacnu-ioA  s-oet-rr  Htii  n bieok« 


t neasia.Bia 

I 

I Copyr<9ht  lt77  P.  Hlbburd  unit  P.  Knubvbn 

I PMUburgh,  PbnnnglvtnU 

■odMia  nQ8Sll(at«ck(iaM>)  ■ 

bagtn 

I 

I POP-il  RLCOl  ess  Cro*i-cea|ilUr  for  POP-11 

I 

■Ml fcboa  nal fall 
raifitira  OlOPPH.  RC0| 
raipitra  COnnOH.RCQi 
raipilra  lOnOCS.REQi 

auMcbaa  llali 

unrt or  I ara 

OSE  laf  I Ina, 

OSCorrMaq, 

OSEobJaarri, 

OSEaroohnri 

lorNnrd 

I Inlfcbnl, 

I InllFOB, 

Cadaag, 

Cvl  1 1 la, 

Raaol , 

Colbul , 

Ll.upntr, 

Colcad, 

Paraag, 

Ini  Ichna, 

Punt, 

Paga, 

Lraadi 

bind  FalCtMlIonq  ••  FalUaar-O, 

LSI  I Inatparpaga  ■ &S| 

OMn 

LSThaadpg, 

LSTpaga, 

LSTeoMnt; 

llaohnp  Cal  1 1 ■ #47 1 


bind 

CrllM  ■ nag(*7n7J'), 

Spcaa  ■ PagC  ’), 

Erra  ■ nagCCoaaund  orror’), 

PPMm  . Page  Invalid  PPM')  I 


J 


bind 


' 


PRCC  i-2 


osi;piRV8Sia.Bie(LisonL6ai«ciiu-iofl  s-oet.77  a2i«a  3a  aioctt 


niiMtetil  ■ #283, 

lObutl  ■ 6*n*Kbuf| 


Bui  Urt, 

Clobb, 

Quia, 

OayolMoaK, 

Entar, 

F I laican. 
Look-up, 
Opan, 
Prtala, 

Pt  tM, 

Purgaout, 

Raari, 

Ur  I taaagi 


I lObulKlObull), 
lObulp, 

Srebiifp, 
Bllvact  Greolaa, 

FOR (5), 

EKtaaan, 

ChnI  I 


Oavica 

. FDR (01, 

Fllannaa 

- ronci). 

CMtanaton 

• FnR(2l, 

PrTlOala 

■ rop(3i. 

t Protaolion,  Tina,  Oala 

PPM 

• FDR(4I, 

LkupBit'  ■ 

FODtll, 

NirBik  > 

FDOdli 

ol  llaldt 

In  Norila 

In  (ho  Chnlata(  block: 

Speed  ■ 

0.1  a. 

1 Trua  II  ckkannni  haa  boon  correct Ig  Inlllalliad 

TTYd  ■ 

l.l  a. 

1 Trua  II  davkca  on  cbannal  la  a TTY 

BInto  * 

18,1  a. 

1 True  kl  el>annnl  la  lor  binary  1/0, 

1 Falaa  11  lor  RSCII 

Inpia  ■ 

la.i  a, 

1 Trua  II  cl«annnl  la  lor  Input, 

1 Falaa  II  lor  output 

Cblehn 
Caoebn 
S tnchn 
Latchn 
Srcchn 
NIchn 


-2. 

0, 

1. 

2. 

Srechnt 


I 


PnCE  1-3 
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■ triictura  Dulhrivecdl  ■ 13*1)  (.Bulhdvoe*3*>  I)  | 

■ tructuro  Bloet:(I,P,S)  ■ (l«Q«drlnel  (.BIeet:*QiKlrlnc*.  I)<.P, •S>| 

own  niitHdvo-  ^ 'hdIHIchn*!)  I 
own  Bloci;  Ci.  a<(Hlchn*l)| 

■ tructur*  ChnntN(Hd(P,S)  ■ (Chnl*t«t*.<Chn*t«lMd)<.P,.S>| 

Mair  ChnatatHd  Chnl|  I lo  that  .ChnllSpaedl  Mtana  .Chniitat t.ChnI , Spied! 

bind  Victor  Ini titat (Hiehn*i)  ■ plitt 
HfMorda  (0, 1) , 

HlMordi<0,0) , 

Hfuordi(8,2) > I 

Macro  Ini tchni (chan, bik)  ■ 
boqln 

I bIk  li  aluayi  FOB 
ChnIrtehanI  | 
l.kupntrO 
ondt| 

Macro  Ini tFOBIdav, f I liiixt)  • 
ho9ln 

novico-dovi 
F I I manor  1 1 li) 

CxtonalonroKt)  ^ 

PrTIOata.PPNrO, 

ondtt 

coMMont  I Cvttlli  * 

I Functlent  lot  up  a character  ilrinq,  to  bo  output  by  thi  callir, 

I that  doBcrlboi  a till  (devici,  nano,  iKtinilonl. 

' i 

I Local!  I 

I Meybut  - ipaci  to  held  the  itrlny  ' 

I Oltp  - a byta  pointer  to  the  itrlny 

I FOB  - the  block  holding  the  Intornatlon  about  the  till 

I 

I Output 

I VALUE  - byte  pointer  to  thi  lit  charactir  ot  thi  itrlny 
I 

rout Ino  Cut  I Ilia 
boy  In 

onn  ttnybutlt)  ,0itpi  | 


connint  I CvtilxIN) 

I 

I Function!  convert  a SIXBIT  itrlny  to  nSCII  and  append  It  lo 
I tho  current  itrlny  (DSTP), 

! 

I Input! 

I N - Mord  containing  thi  SIXBIT  itrlny 

I 


gv«iiigig'LiBaaKii 


PRGC  1-4 


osKBi neesie. di b il isohlgr) acnu-ioR 


3-0ct-77  e2i4B  SB  bleeki 


•I 


rout  Inn  Cv/tilx(N)  ■ 
bag  In 

local  Srcpi 

Srcp-H<36,6>| 

doer  I Iren  S to  B do 

It  ocanl(Srcp)  oql  8 
than  okI t loop 

also  roplacol (Dttp,acann<Srcp>«#4Q) | 

novalua 

and] 


Oatprlptrtocharatnagbut)  I 
Cvtslx(.Oavlco); 

Roplacol <0atp,*i *) | 

Cvtsixt.FI  lanano)t 
Roplacol  (Oatp,*. *> | 

CvtaIxt.Extonalon  and  f777777tQhfilz)| 
Roplacol  (0atp,0)| 

NptrtecharKdlogbut) 
end  I 


coammt  I CadoagtStr) 

I 

I Fuiictloni  output  a aoisaga  to  tho  uoor's  taralnal,  anriing 
I with  CRLF,  living  TTCRLL’a. 

! 

! Input! 

I Str  - peintor  to  a uorri  uhooe  high  bgta  boglni  tha 
1 ttring  to  bo  output. 

! 

routine  CndasgtStr)  a 
begin 

Ur  I taaagtCaochn, .Str)  | 

Ur  1 1 oeag (Ceoehn, Cr I ta) | 

Purgooiit  tCaochn)  | 

novalua 

ondt 


coBMont  ( Raaat 
I 

I Funetloni  do  a RESET  UUO,  and  rolnitlallio  tho  Chniilat  uerd! 
I 

routine  Reaat  a 
bagin 

map  Vactor  Chnlatat( 
lObuf p-lObuf I <8, B>t 
novocortinl totat ,Chnlatat,Hlchn*l)  | 

CallllO,B>| 
novalua 
ond| 

! II 

I |l 

' I’  eoBBont  I Cotbuf 

) ■■  ' 

I i I Functions  allocate  apace  lor  I/O  bnffari  lor  a given  channel, 


I 


I 


PACE  1-S  OSi:Bin68S10.BlO(L150nL6aieCnU-ieR  B-Oct-77  S2i4t  SB  block! 

I calling  the  OLIulB  retitlne  BUrFERB. 

* i 

I Input* 

I ChnI  - a channel  nueber,  boluoen  Celchn  and  Hichn  Incluilv* 

I ^lobult  debut  I]  - a large  block  et  ipac*  tree  which  all  I/O  button  ar*  takan 

I lebutp  - a pointer  te  the  beginning  ot  unused  «pac*  In  lobutt 

I 

I Output* 

I lobutp  - updated 

) VALUE  - True  It  butler  epaco  ua*  al  located, 

I tale*  It  eoe*  error  wa*  encountered 

I 

routine  Cotbul  a 
begin 

local  Slioi 

It  .ChnI  *ql  Srcchn  then  Srcbiitp*-.  lObulp; 

Slte>-2*(2eBul  terat.ChnI  ,0,  .ChnI  dnpiol  ,01)  t 
It  . lObutpe.Siz*  leq  lObut  I dObut  I]  <0, 0»  than 
begin 

Bui  torat.ChnI  ,2,  .ChnI  dnpiel , . lObutp)  | 
lObutpr, IObutp*.SIz*| 

True 

end 

andt 


coaaent  I Lkupntr 
I 

I Function!  Inltiallte  a channel  lor  I/O  a*  Indicated 


I Input* 

I ChnI  - the  channel  mieber 

I FOB  - a block  containing  all  naceeaarg  inloreallon  about  the 
I current  channel,  oxcept^that  contained  In 

I Chniatat  (Hlchnl  - a vector  el  worde,  one  lor  each  channel,  each 
I el  which  contain*  a lew  bite  el  inloreallon  about 

I the  channel. 

I Output* 

I VALUE  - True  It  Ini t lal lial Ion  euccoad*,  tali*  otherwise 
I 

routine  Lkupntr  ■ 
begin 

nacre  Dovchrtdvne)  ■ (register  QQt  OQrilvnei  cel  1 1 IQQ,#4)  )St 
nacre  Binarget  ■ 12,1  >,  t Naees  et  tields  In  the  OEVCIIR  result  word 
Reel  Ini  a 1, 1 S, 

rrydavl  • 21,1  S; 

bind  DInarynod*  ■ dl4,  Aaclllneeode  ■ 1| 
hind  L150  ■ #25627,  L1S0RL71  ■ #25627ei016S| 
raglator  BItvect  R{ 


It  net  .ChnKSpecdl 

thil  (RrOoweltrt.DevIc*))  neq  0 
Ihll  (It  .Chnl(Binie) 

then  .RIBlnaruwll 
*1*0  .RlAsellnlll 
Ihll  Opent.ChnI, 

II  .ChnKBInleJ 


I I*  channel  already  In  uea? 

I Dee*  dovtc*  oslel? 

I Can  device  do  1/0  el  epoclllod  type? 


I Oee*  OPEN  UUO  eucceed? 


PRCC  1-6 


OSlBt  666516. 816(11506166) tCHU-l0n 


3.0ct-77  02i46  36  blocki 


thon  Blnnryiiodo 
6icl I Inaaodv, 

.Dcvict, 
l(  .ChnKInplol 
thon  niithit(.Chnl)<6,6> 
oiio  Bufh<il.Chnl}<6,6>7Qh(ilz) 
thit  CottautO  noq  6 I Con  buHort  bo  qotton? 

thil  (M  .Chnl(lnplo)  I Ooot  LOQIUP  or  EHTER  UUO  cuccood? 

thon  beqin 

local  SavPPNi 
SavPPN-.PPN; 

It  Leekupt.ChnI ,ll:upDIK>  than  oKltblock  triiot 
It  net  .Extooon  then 
begin 

Extonelon*>0| 

It  Leokiipt.ChnI iLkilpDIk)  than  OKltbleck  truoi 

Extanalont-olxbl  t *666*  | 

and) 

it  .SavPPN  aql  6 and  .CraataatlHI  aql  tlSO  than 
bagin 

PPN..LlSDnL7it 

It  Loekup<.Chnl,LkupBlk>  than  axitbleck  truai 
and(  I 

talaa 

and 

aloe  Entar(,Chnl,NtrBlk)>  i 

than  begin  I Succeee 

ChnllTTYdlk.RCTTYdevIl) 

ChnI (Spacdl »True| 
return  Truej 
andt 

CxMtaegtllaqCInltlal  Izatlon  lallura’Di  I Failure 
CaNlnBg(CvttlleO)|  ! 

False  I 

ctnd|  ' 


coenont  ! Catend 
I 

! Fund  lent  Input  a coaaand  Iron  tho  user’s  tarainal, 

* using  TTCRLl’e 

I 

I Outputs 

I CsKlbut  - a block  ot  bgtae  In  uhlch  the  coaaand  is  stored  as  an  6SCII  string 
I 

routine  Colcad  a 
begin 

bind  CadbufI  a 20| 
oun  Cndbiit  (Cadbut I)  I ‘ 
rogletar  Ptr,N| 

Ptrrlptrtechars (Cadbut)  | 

NrOcheurdaCadbiit  1 1 
do  begin 

It  (Na.N-l)  Isa  6 than 
Punt (FatCadlong) | 
raplacol (Ptr,6aad(CBlehn>)  | 
end 


PAGE  1-7  OSr.|liA6SS18.Bia(LlS0AL6SlaCnU-10A  3-0ct-77  •2:48  38  blocks 

unt 1 1 .Vro9  oql  Lf  | 

Ipir  tocharilCxIbtil) 

•ndt 

poulina  Parba9  ■ 
bag  In 

Mcra  CotPPH  ■ (roglatar  QQt  QQ>-0(  Cbl  1 1 IQQ|f24)  )S| 

iMcra  Croat  (Ubn,tlhat)  ■ Hhoi  OMltaalaet  CadaagdlagtUhaDISi 

blnil 

AII20  ■ «OOG04O, 

ALGS  ■ #010130. 

ALGO  ■ #010131, 

AI.70  ■ #010164, 

AL74  . #018178, 

BIOS  - #832813, 

CA18  ■ #1SS604, 

PM02  • #427117., 

Pi:02  o #431202, 

8A20  . #S111S0, 

TA30  > #547404, 

UH17  > #641S73| 

If  .Craoloa  noq  0 than  roturn  novoluoi 
CraotaB»CotPPN| 
aalaet  .CroatealRHI  af 
naot 

Creol  (AII20, 'Uoteh  oo  bl«xt  P«bc«I')| 

Craet (RI.6B, ’Lai  no  alaboroia  on  lbat')t 
Croat  IRI.GO, 'Lai  •#  aluborola  on  tb«l'); 

Groot  (AI.70, 'Lol  ■#  alaborato  on  (h«t’)| 

Groat <A(.74, *Uhnro”a  lha  Bitting  llnl:?7’)| 

Groot (BL03, ’HI  Bruco’)t 
Croat (GAIO, ’Hug  Gug’)| 

Croat  (PII02,  ’ Thou  »rt  Polar’ )| 

Great (PL02, ’Goad  luck  Paul’)) 

Croat  (Sn20,  ’ 1 1 ”i  that  crazy  Swoiio  again’ >| 

Greet  <TR3B, ’CIva  ny  rogarilt  te  Cbo’); 

Great  (UU17.’II”b  big  daddy  BUM’) 
tatni 
nova I ue 
ondi 


eoBBonl  I Ini IchnatSrcenly) 

1 

I Function 

I InMIallto  1/0  channala. 


II  Srcanly  It  goq  0 Ihon  got  coBoand  line  froB 
utor  and  Initial lao  tpaelflad  channelt. 


I If  Srcanly  It  lat  8 than  Initlallia  teurco  Input  channel  to  road  Iron 
I noKt  opoclliod  Input  Ilia.  Roturn  Taloo  ao  value  III  ond-ol-data  or 
I error  eccurrod. 

I 

I 

rout  I no  Ini tchna (Srcanly)  ■ 
hogin 
laacra 


PRCE  1-a  OSt:B>n68StD.B10ai50RL6B)eCnU-10R  3-0ct-77  02i«e  30  blecKs 

CMdona  ■ raturn  Trut  0, 

CMdfall  ■ raturn  Falsa 
CiKlorr(M)  ■ (Ca<lMty(M)t  CadfalDO) 

OMn  Cadre*, Ptrj 
local  Bitvaet  Scanv| 

Macro  Rotcodo  ■ Rll  S,  1 Naaaa  el  llaldt  in  lha  FILESCRN  raauM  Mord 

Braakeh  ■ LH  S| 

II  .Srcenly  geq  0 
than  bog  in 
RoaatOi 
PornagOi 

Ur.  I tanBg(Cnechn,na9('a'))  I 
Purgoetit  (Caochn)  | 

Cndael<-Falaa( 

LSTpagerOt 

LSTceiint«-LSTI  Inaaporpagai 
PtrrGolcadO  I 
ChnIrLitchnt 
and  " 

a Isa  begin 

ChnIrSrcchnj 

and} 

until  .Cadeef  do 
bag  in 

InltFOBtaixblt  ’DSC*,  0, 

casa  .Chnl-Blnchn  at  sat  sixbit  'OBJ'i  sixbit  ’Pll’i  Zsixbit  ’RSB’X  B tas) ; 
ScanvrF i laseanlPtr,FOB>t 
It  net  (Extsaon»(. Extension  nsq  0>) 
than  Extanalonrslxblt  ’RBB'i 
casa  .Scanv[Bateedelt(-l}  el 
sat 

ei 

Cadarr (Erra) ; 

CadarrtPPNa); 

CadorrtPPMal t 
CadarrtPPNa) ; 

Cadarrtnsgt’ Inval Id  sultch  spaci  I leal  Ion’ ) ) 

last 

II  .ScanvIBreakeh)  eql 

than  ScanvtBroakchl*-"*" 
alii  .ScanvtBroakch)  eql  "i* 
then  Seanv(Brnal'.ch)  •■Cr; 
salacl  .ScanvIBroakchl  el 
neat 

*, "raxl tsalect  begin 

II  .Chnl  eql  Lstchn  then  CadorrtErra) [ 

II  .Scanv  then 

II  net  Ini tchnlt. Chnl , FOB)  then  Cadlailt 
II  .Chnl  eql  Binchn 
then  ChnIkLstehn 
sill  .Scanv  then  Caddonoi 

and  I 

‘■‘taxi tsalaet  begin 

il  .Chnl  sql  Sreehn  then  Cadarr (Erra) | 

11  .Scanv  than 


I 


« 


PRGE  1-B  DS>:Bin68S18.Bie(L150nL68]eCnU-10R  3-0et-77  82i48  38  block! 

I 

If  net  Inl tchni (.ChnI ,FD8>^  than  Codfal I t 
Chnl»'Srcehni 

•nd(  I 

Cri  oKltoalocI  bagin  ! 

Cadaef^Truei  | 

If  .Scanv 

than  (if  .ChnI  aql  Srcchn  then 

It  net  InItehnM. ChnI, FOB) 
than  Cadfaii 

I a lea  Caddonel  ! 

allf  .ChnI  aql  BInchn  then 
i Cadfallt 

I CaKlerr<Erra)| 

andt 

Rllalaat  Caderr  (llagf*  1 1 lagal  dallaitar’l) 
taani 
andt 

falBt 

ond| 

routine  Punt<M>  ■ 
begin 

oxtarnal  JobODT, Jobsa,Sixl2; 
doer  I froa  Hichn  to  0 do 

If  .Chniatat I.  I,Speed)  and  net  .ChnlBtat(.I,Inplol  than 
Purgoout  (.  I)  t 

Cadasgdtngf’ ?n7J?7PUNT1 ' ) ) t 
' If  .JobODT  noq  0 
then  Slxl2(-1) 
alta  (.JoboalO; 
novalue 
end; 


I Source  Input 


coaaont  I Lroari 
I 

I Functloni  call  the  BLILIB  routine  RERO,  pasBlng  Srcchn  aB 
I arguaent,  and  return  the  rasult,  except  that  If  the  character  read 

I is  a character  of  an  SOS  I Ina  minbor,  return  an  error  code  of 

• 

routine  Lraad  n 
begin 

bind  Vector  Dufhad  ■ Bufhd (Srcchn) ; 
bind  Bgtptr  ■ 1; 

If  Raad(Srcchn>  glr  8 than 
If  C.BufhodtDgtptrl  than 
Vrag*— 3| 

. Vrag 
andt 


r-rTTT.  rrr  


pncc  i-ie 


os):B«n68sio.Bio(Li5onLG8i  ecnu-iofl 


3-0ct-77  02U8  30  blocks 


eoMont  I OSEsrcchnr 
I 

I Function!  qol  * chorncter  Iroo  tho  Input  buMor.  Procost 
I lino  nuMboro,  I/O  orrora,  and  onil-ot-llla  condltlona  correctly. 
I 

qlobnl  routine  OSEarcchar  ■ 
begin 

local  Bltvact  Char,  InSOSnet 
InS0Sno>-coil{ 

while  (CharrLreadO ) laa  0 do 
case  .Char»3  of 

BOt 

I B - Line  minbor  character 
InSOSno^-nonced; 

I 1 - I/O  error 
begin 

Cedesg (Hag (* Input  tranaeisalon  error’))) 

return  EOFchar; 

end) 

I 2 - End-o«-llle 
begin 

Close (Srcchn) ) 

Chnlstat  ISrcchn,Uorilf]  Ini  tstat  ISrcchn) ) 
lObufpr.Srcbiifp)  ' 

it  not  Inltchnat-l)  then 
return  EOFchar) 

end 

tes)  i 

If  .InSOSno  neq  0 and  .Char  eql  HTab  i 

then  0 I 

else  .Char  | 

and) 

I 

i 

' ■ ' 

! Lint Ing  Output 
I 

routine  Lntwsg(Str)  ■ 
begin 

Ur  I toMsglLatehn,  .Str) ) 

novalue 

ond| 


routine  Pago  ■ 
begin 

OMternal  Voraid) 
bind  0ayB(7a2)  ■ plltl 
'Sunday' , 

'nenday' , 

'Tuesday' , 
'Uodnnnriay’ , 
'Thursday' , 
•Friday', 


i 
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’Sulurrtny’ > I | 

loc«l  Todbyi  I 

LSTco«ml«-0| 

If  not  .Chniitol  (Litehn,TTYd)  Ihtn 
bogin 

Todiiy*-Ditto()  I 

LstasgtlligC* ?L|lllgol  60  ’))) 

LotBsg<Nplrtoeh«rt(V«ri Id)  > j 
LstasgtSpcta); 

LttnaqtNptr  tacli«ri(0«yt(2*0ayalM«ak  (.  Todkyl ) ) ) j 
LatPsytSpcaa)  | 

PdalatLolchn, .Today)) 

LatHqtSpcab)  | 

PtlM(Latc)in,-l)| 

LalMgtSpcaa) ) 

LitnsytCwlf  I laO)) 

LatuqtnagC*  Paqa  *))| 

LST)iaadpg>-0) 

Cvtdacc(Iplrtochara(LSThoadpg)  ,l.STpaga>-.LSTpaga*l,3>  | 

Lalaay (NpIrtoeharatLSThaadpy) ) | 

LalnaqtCr I In) ; 

LstaiytCrlfia)) 

Purgaoul (Latchn) ) 
and) 
novalue 
end) 

cooMont  I OSEIat  I InatPIrat.Fol I .Errdov) 

! 

I Function)  output  a atrlng  to  tfto  listing  dovico,  and  possibly  to 
' tho  user's  torslnal  as  uall,  apponriing  a CRLF. 

I 

I Inputs 

I First-  hyto  pointor  to  tite  first  cliaractar  of  ths  (RSCID  string 

I Foil  - byto  pointer  to  thn  character  Just  after  tho  last  character 

I of  tho  string.  This  Is  taaporarlly  sat  to  zero,  to  naZa 

I the  string  GSCIZ,  before  calling  Urltaasg. 

I Errriov  - noncod  if  the  string  Is  also  to  ba  output  to  the  taralnal 

I I 

gtobal  routine  OSEIst I InetFIrst.Fol I .Errdev)  • 
begin 

If  .CBLpragf lagsIPrgI  1st)  or  .Errdev  nog  0 than 
begin 
local  Sav( 

II  (LSTceuntr.LSTcountal)  gtr  LSTI  Inasporpago  then 
PageO  t 

SavrscannfFol  D) 
replacontFol I , 0) | 

If  .Chnlstat (Latchn, Speed!  than 

begin  ^ \ 

Lstasgf.F  Irst) ) 

Ls taagtCr I la) ; 

If  .Chnlstat (Latchn, TTYd)  than  Piirgeout (Latchn) i 
and) 

If  .Errdev  nog  0 and  not  .ChnlstatTLstchn,TTYd)  then 
Cadasgt. First)) 

I 


1 


pncc  1-1 


osi  Ri  niissio.  sie  (L  isofliesi  ectiu-  iin 


3-Ocl-77  i2i*$  3i  blocii 


raplitc«n(Fol  I , .Sav)  | 
aniti 
novalua 
and  I 


» 

* Objact  Output 
I 

5|lebnl  routina  0SCob|Hord  ■ navaluai 


( 

I Error  noaaaga  Output 
I 


qlobnl  routine  OSEerraiqtN)  ■ 
begin 

extarnat  Errtxtt 
It  .Errtxt(.N)  naq  0 than 
baqin 
Outat*  - 

Outsat  t.  Err tNt  I.N) ) t 
anrtt 
novalua 
and  I 


I Inlt lal laat Ion  and  FInalltatlon 
I 

Mcrn  Inltnaa  (dual  ■ 
haqin 

global  G0Ltraola,C0Ltreah(,Fraaaraal30tl0J  | 
CDLtraalo  » rraaaraa<.0,0>t 
CDLtroohi  r (Frioarea»3C0Dlt(,0>| 
novalua 
end  ft 

routine  Initpraqa  • 
begin 

COlpraqt  laga^-Ot 

nOI  praqi  lags  (Prgatrepl  •■I) 

COtpragt lagalOrguarnl xtruai 
COLpragI lagalPrgI lqt)»lrua| 

COtpragt lagotOrgobJI rtruoi 

novalua 

andt 

■acre  In ( t transput (dual  a 
bogtn 

Mnlll  Inltehna(Q)  do  InltpragiiO) 

It  .Cbnlotat(Latcbn,TTYd)  than 
begin 


PHCC  1-13 


osi:B>R68Sio.Bio(LisonLne)acnu-ion 


3-0ct-77  e2i4e  30  bloet;i 


1 


UrMaa<q(CMchn,noy(’ 7Lni9el  68  '))) 
CtKliic9<Nptrtochiir«(V«rtld) ) | 

•ni(| 

novaluo 

•ndCt 


naoro  Flntrannput<rt«iN)  ■ 
begin 

doer  I IroM  HIchn  to  0 do 

It  .Chnlit«l(.I,SpocdI  Ibtn 
Clooot.  1)  I 

novoluo 

ondf  t 


OKtornnI  RlgoIGSi 


CrootoM>-0|  I 

ropont  I 

bogtn  ' 

local  Val|  I 

global  GDLarra,G0LHarna,CDLpro9itart,CDLpragllagc( 
InltnoaO; 

' Ini  tpragoO ; 

InlttranaputOi  ^ 

It  (Vo I oR 1 90 1 680)  0 Ihon  Punt(-.Val)| 

F Intranapiit  O ; | 

ond|  1 


novaluo 


and 

aludoa 


I 
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D8i;Bin6a8ii.iiiiLisonL68)  ectiu-ion 


27.Sep-77  12i89  20  bloel;i 


( nessii.eii 

( 

I Copyright  1977  P.  Nibbarit  anii  T.  Kniiovon 

I Pttlibiirgh,  Ponntyl van)* 

Moiiula  nsasn  (START  . Start,  NODCDUO  - 
bog  in 
I 

I Algol  88  Coapllor  Hydra  Oporaliog  Syitoa  Cnvironaant 


Thl«  ooriulo  contain!  aoit  ot  tha  roiitinoi  which  coaprlia  tha 
Hydra  08E  tor  tha  Algol  68  Coapllor.  Tha  routina  Start  la  Iho 
ontry  point  tor  tha  Hydra  load-and-ge  coapllor  ayataa. 

Coapllatlon  Ini t lal laat Ion 

Tho  lol lowing  lunctlona  auat  ba  parteraodi 

- Raeiirtaln  which  output  (llaa  ara  lo  bt  croalad.  Porlora  any 

ootup  ragulrod  la  naka  aubaaquont  output  act  Iona  work  corroctly. 

Sol  SPragI  I IPrgI  lal)  lo  Iruo  III  tho  Haling  Ilia  la  lo  ba 
wrltton  and  (PragI I (Prgobjl  lo  Iruo  III  tho  objoct  Ilia  la  to  bo 
wr I t Ian. 

- Dotaraino  what  lOKt  la  lo  ba  iiaad  aa  lha  aoiirco  input.  Ilaka  any 

nocoaaary  connnctlona  to  allow  aubBaipionl  Input  act  Iona  to  work 
cor  root ly. 

- Altar  fPragll  (o  rot  loot  any  raqiioata  tor  pragoat-controt  tod 

act  Iona. 

- Do  anything  olao  nnconaary  lor  parlloular  ayatoa. 

- Sal  Froolo  and  rroohl. 

Source  Input  (SSRCchnr) 

Tho  roullno  tSRfchnr  rotiirna  tho  noKi  character  Iron  lha  aotirco  Input, 

II  no  noro  Input  OKiata  It  raturna  EOFchar.  Tha  charactara  nuat  bo 
oncodod  aa  7-blt  ASCII.  & > 

Haling  Output  (SLSTIIna) 

SLSTIIno  outputa  a aingla  lino  ot  laat  to  tha  llaling  dovlca  and  poaalhly 
lo  tho  oonnand  output  dovlca  aa  wall.  It  lakaa  throe  paranotora,  an 
N-pointor  to  tha  tirat  charactar  ot  tha  lino,  an  N~polnlar  to  Iho  characlar 
laNMdialoly  (el  lowing  the  latl  oharaelar  ot  Iho  lino,  and  an  Indlcallon  ot 
witnihnr  Ilia  lino  ahnuld  bo  oonl  lo  Iho  eonnand  oulpul  dovleo  (0  Inpiloa  do 
nel  aond  II). 

Error  Roportlng  tSErrnag) 

SErrnaglN)  lo  callod  to  oulpul  any  teat  naaaage  aeaoclalod  with  arror 
nunbor  N. 

Objoct  Output  ISOOJword)  { 

SOOJworri  la  callod  to  output  a word  ot  objeol  coda. 

Conpllallon  Final  Italian 


awl tchaa  nol lal| 

roqulra  KERkRL.REQ  (N811HV97)| 


PRCE  1-2 


osEBineBSti.BiitLisonLGMecnu-ioii 


27-S«p-77  12*n  28  blocks 


roiiuirs  CDCODC.RCO  (NBUHY97)  | 
rotiulro  STKPRn.REQ  CNRtlHV97) ) 
ronuiro  RTSSTR.REQ  (NailHY97) | 
roquiro  RTS  .REQ  tN811HY971  i 
roquira  rnCRLL.REQ  tNRiaPMD9l  | 
raqulra  TTCRLL.REQ  INaiePItOgi  t 


raqiilra  011PRn>RE0| 
raqulra  COIHinil.  REQ| 
raqulra  lOHRCS.REQi 


Bultchas  llst| 

unilaolaro 

.SErrasg, 

SLSTIIna, 

SOBJuoril, 

SSRCchar; 

Clesadav, 

lOlnIt, 

Oponilov, 

Outaselt, 

Outa, 

Outer  1 1, 
Varsid, 

Gloteg, 

Sixead) 

bind 

FatHardorr 

a FatUsar- 

FatSignal 

a FatUssr- 

FatObJovf 1 

a FatUseP' 

Cnichan 

- 8. 

CnOchnn 

■ 

LPTchan 

■ 2, 

RPSriatal 

■ 

RPSdata2 

a 5, 

RPSdata3 

a 6, 

RPSle 

■ 

LN9alxl2 

■ 

LNSsys 

■ 2* 

LNSiianr 

■ 3i 

LNSport 

a 4,  Z 

LNStora 

a S,  Z 

LNSaource 

a 6,  Z 

LNSopt Iona 

a 7,  Z 

LNSobjoel 

a 8,  Z 

LNSpngno 

- 13, 

LNSprocritl 

a 16, 

LNSproedt? 

a 17, 

LNSproedtS 

a IB, 

LNSorrasg 

a 19, 

0, 

1. 

2. 


Paraaetar  Z 
Paraaatar  Z 
Paraaetar  Z 
Paraaatar  Z 
Paraaatar  Z 


I 


PRCE  1-3 


osKRt  Reasii.Bii iLisoniBsi aCHU-ion 


27-S«p-77  12iN  2a  blockt 


Vac  tor 


bind 


LNSdalal 

m 

SI, 

LNSdataE 

m 

32, 

LNSdalaS 

m 

S3, 

LNStoap 

m 

3*. 

CPSdatal 

m 

*. 

CPSdata2 

m 

5, 

CPSdalaS 

m 

8. 

CPSorrasg 

m 

2. 

CPSMsag 

m 

21. 

CPSgaag 

m 

22, 

CPSseurco 

m 

23, 

lOpago 

m 

l200a0i*RP9lo| 

1 cnobiiftaai, 

1 LPTbutiiaa). 

Dubcea 

m 

8. 

lOcurpg 

m 

e. 

lOlnptP 

m 

lOpago, 

LSTchan 

■ 

CnOchan, 

LSTcount 

■ 

S*. 

LSTdov, 

L9ThDnd(17) 

■ 

aacli  ' Algol 

LSTpgno 

■ 

a. 

SRCpaga 

CPSsourcai 

LSThoadpg 

■ 

LSThaad*38t 

•bap  P*90  XXX‘, 


rout ina  Intorrupt  Horr  ■ 
hogin 

Outa  (*  7C7C7C7CMnrri  Error  at  Coapllar  PCna'h  Outoct  (.OldPC)  | EolarrO) 
OtitaC  Mlth  ERRrnDCii#')|  Outeot  I.SERRCOOCt  | Eolarr()| 

It  .Oobeoa  noi)  0 than 
Slxci*d(«1000>t 
signal  FatMardorr 
and  I 


routine  Intarrupt  Haig  > 
hogin 
local  T| 

U.Mi 

0ulB(*7C7r.8l9nal  Outoct  (.T<0,lSk>|  OutaC  at  Coppllor  PCaBMi  Outoct  (.OldPC)  | EolorrO) 
Outa(*  Mlth  SICOnTn.aMi  Outoct (.tSICDflTn) I EelarrOi 
It  .Oobeoa  nog  B than 
Sl¥cnd(#lB01>i 
signal  FatSIgnal 
and  I 


rout Ina  (OlaadtCPSslol)  ■ 
bog  in 

It  .CPSalot  nog  . lOcurpg  than 

I 
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begin 

lOcurpgc.CrSeloti 

SRRLOnn<RPSlo,.CPSslet)| 

end( 

novaluo 

and; 


routine  Piint(N)  ■ 
begin 

14  .OebcoB  noq  8 then 
SlacBd(#777>} 

Outs(*PUNTI  >>|  Outdoe(.N)t 

EolerrOi 

novalue 

end  I 


I 

! Source  Input 
I 


global  routine  SSRCchar  ■ 
begin 
local  Val| 

14  .lOInptr  eql  I0pago»f20060  than  , 
(SRCpagoi*.  SRCpago»l|  10  InptrklOpago)  | 
lOlaadt.SRCpggo} ; j 

Val«-scanN(IOInptr) I incp(10lnptr>t  i 

14  .Val  eql  0 then  i 

14  (VaUscanN(IOinptr))  noq  8 I 

then  IncptlOInptr)  | 

el  10  VaUEOFchar;  i 

.Val  I 

end;  | 

I 


I 7777  This  eag  loco  14  EOF  occura  at  beundarg 


I 

I Listing  Output 
I 

global  routine  RogO  SLSTI lno(Firtt,Fol l,Errdev)  ■ 
begin 

14  .SPragf I (Prgl Istl  or  .Errdev  noq  6 then 
begin 

14  (LSTcountt-.LSTceunt^l)  gtr  S4  then 
begin 

LSTeountfcOi 

14  .LSTchan  nnq  CllOchnn  then 
begin 

Outasc  I z (.LSTchan,  tlisgC?!’) ) | 

Outatciz(. LSTchan,  Vonld) ; 
Cvldacx<LSTheadpg,LSTpgno>-.LSTpgno«l,3)| 
Ou t asc I z ( . LSTchan, LSThaad) t 
Outer  1 4 (.LSTchan) | 

Outer 4 4 (.LSTchan) ; 


PNCG  1-S 


DSKB I nessu . B 1 1 (L  isonieai  acnu- 1 en 


27-SOP-77  12109  26  bleekt 


•ndi 

•ndt 

Out«<.LSTehitn,  .First,  .Fol  I)  I 
OMterlf (.LSTchsnli 

M .LSTehsn  naq  CHOchsn  snil  .Errrisv  nsq  6 Ihsn 
bsgin 

OutM  (CtlOohnn, . First, .Fell)| 

OuterM  (CnOchsn>| 

•ndi 

sndi 
nova  I us 
and  I 

I 

1 Objact  Output 
1 

bind 

Display  ■ #2000, 

Tranvact  ■ #160000, 

Xpaga  ■ #120000, 

Ypaga  ■ #140000) 

SMcro  SalactX (d\ia>  ■ lOload(CPSKsag)  9) 

Macro  SalactVIdun)  a lOleadICPSgsag)  9) 

r,lobnl  poufino  BagO  tOOJuord(Loo,Dtgps,Dvalus)  a 
hag  In 

local  OoMsat) 

bind  Vactor  Dasalabla  a uplill  0,  0,  0,  0,  Xpaga,  Ypago,  Display,  Tranvact  >| 
II  .Loe  goi|ti  Ybasa 
than  hogln 

Loct-.Loe-Ybaso) 

SalactYO ) 
and 

a Isa  hogln 

Leer.Loc-XhasO) 

SolactXO  I 
and) 

II  .Loe  goqu  #19000  than  signal  FalObJowll) 
notfsotalcaao  .Otype  ol 

sol 

.Ovaluo) 

.Ovaluo) 

.Ovaluo) 

.Ovaluo) 

.Ovaluoa2adrine  - Xhasos2adr Inc) 

.0valuoa2adrino  - YbasoaZadrInc) 

.OvaluaaZadrino)  ^ 

.OvaluaaZaZadrlne 
tasi ) 

]Opagai.Lee)*.Basaiablsl.Olypol  * .OoMsai) 
novalua 


pncc  1-6  DSKBineSSU.BlltLlSOnLeSloCnU-ian  27-S«p-77  12iN  26  bloeki 


I 

I Error  nosoogo  Output 

I ' ' 

I globnl  rout  I no  RagO  SErrnBg<N>  ■ 

bogin 

OKtornal  ErrtKti 
lOloatKCPSorroag)  | 

If  .Errtxtl.N)  naq  6 than 
bogin 

OutB(*  - ’>t 
Outaazf.Errtxt  t.N)  >| 
anrit 
novaiuo 
anp) 


I 

I Ini  t lal  Izat  Ion  antf  Final  liallon 
I 

■acrn  Ini tcuapfduai  ■ 
hogin 

local  SStrCBERRnRTRnP!i  Traphanrilart; 
local  SRighta  Rnatrlctt 
TraphnnrtI ora tSERRPCI -Horr j 
Traphnnriiara(SSZCPCI«-Naig( 

SSETLCB  (0,TraphnnillorE,SCBCRRORTRRPS> ; 

SCOrY(LNSdntal,LNSproc(ltl,CPSilatal)| 

$C0PVaN.Sdnta2,LN.Sproerit2,CPSdata2)| 

SCOPV  (LNSdalaS,  LH!>precdt3,CPSdala3>  | 

SRRI.ann  <RP5dn  t a 1 , CPSda  tali; 

SRRt.0nn<RPSdata2,CPSdata2) ; 

SRRLann<RPSdnta3,CPSdata3)| 

SCPSLOnOtO, 

<CPSxsng,SPnTH(LNSobjoct.l)>,  i 

<CPSg8ag,SPRTH(LN!iabZoct,2)>);  ' 

Rob tr  let  ISfltixRTSI  -not  SUr i taPagoRTS; 

Roatr let  ISGanor IcRTS)  •— 1;  * 

incr  I froa  1 to  tCLENGTNdNSaourco)  do 
bogin 

SCETCflPn <LNRtoap,  tPath fl.M.lKOureo, , I ) ) ; 

SPUTCnPn<LNStoap,LilStaap,ReBtrlet); 

SCPSLOriDtB,  <CPSaource-U.I.LNStaBp>); 
tOELETE  (LNStaapi; 
and; 
novaiuo 
ondt; 

Maero  Ini tnaatdua)  ■ 
bogin 

eaact  giobaln’rREE.C’; 
global  Froaaraa; 
bind  Freoond  n lOpaga; 

SFraalo-Fraaaraa; 

SF  r oah i -Fr aaand ; 

I 


I 
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nova I u* 

•nrtS| 

rout  In*  Oooultcboa  ■ 
bofin 


• tack local  Langi 

LangrtDLEHnTHtLNSopt Iona) 1 

Incr  I Iroo  2 to  .Lang  do 
bagin 

• tael;  local  Sm| 

see  TOR  TR  <Sm , LNSop 1 1 ena , 

•I.Ul 

II  • laa  .Bn  and  .Su  laa  17  than 

caaa  .Su  ol 

•at 

1 

1 

X PEBUC  X 

Oabcoornonrari) ' 

X GHOST  X 

SPragI 1 IPrgnoghoatl-lalaat 

X LISTING  X 

SPragt  1 IPrgl  laU-lruai 

X LOUCR  X 

SPragI 1 {Prgatrop) rSi 

X HRCII  X 

SPragt 1 IPrgnacbl rlruai 

X NRl.tO  X 

SPragt  1 IPrgnonakod)  »Ulaa| 

X NOnCBUG  X 

Dobconrtadi 

X NOGIinST  X 

SPragt 1 IPrgnpghcBtlrlruat 

X NOLIST  INC  X 

SPragt 1 IPrgl tall ‘la liai 

X NOimrii  X 

SPragtl IPrgaacbl-lalaai 

X NONnt.TP  X 

SPragI 1 IPrgnonakodl  -truat 

X NOMORNINCS  X 

SPragI 1 IPrguarnI  rlalaai 

X POINT  X 

SPragtl IPrgalrop) rlj 

X RES  X 

SPragI 1 IPrgatropI  rOi 

X UPPER  X 

SPragI  1 IPrgalrop)  ••2| 

X HRRNINCS  X 

SPragI  1 IPrguarn)  rlrtio 

laai 

•nit  I 
novotu* 
nnd| 

■Mcro  Ini  tpr«ga((4im>  ■ 
liaqln 
>Pr*^t  l>-B| 

SPraqtl (Prg* Irop) *1| 

SPragt I IPnguarnl rlruai 
SPragI I (Prgobjirtruai 
•Pragt  I IPrgl  lallrlruai 
Doaui  IchaaO  | 
neuolua 
•nitti 

routina  Ini  I tranapiil  ■ 
bag  In 

lOlnl t (LNBpoFl)  I 
Opanilav(CnOchan,CnObut  (0)  ,BB,  3>  | 
tCETOnrn  asrpav,  IMSapt  lona,  l , l > t 
1 1 .LSToav  aql  0 

than  tPragt I IPrgl lat) Flalaa 
• I I < .LSTdav  aql  2 
than  bagin 

OpandavtLPTehan.tPTbul 10) , 13B,6>  t 


i 


I 


PRCC  1-8 
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1 


LSTchoncLfTcboni 

•ndi 

Qu I nao  I z (CnOchiin,  Von  I d)  | 

0utOBClz(Cn0chi«n,llBC<'  Coapllsr  Start In9'))| 

Outer  1 4 (CnOcbanl t 

nevaluB 

ond| 

reutino  TlntranBput  ■ 
begin 

II  .LSTchan  eql  LPTohan  than 
C I oBodev  tLPTchan) | 

C loBodovtCnOohan) | 

novaluo 

*nd| 


poutlno  068  ■ 

' begin 
local  Val| 

OKtornal  Rlgol68| 

Ini  icuBpOi 
Inl  tnonO } 

InltpragaOi 
InlttranapiitOi 
14  .Dobcop  neq  6 
than  SIxcmcI(B) 

I alaa  Clolog— 1) 

14  (VaURIgelSSO)  aql  8 

than  Va I -ZaHr I nco.SProgB I ♦Ypaga 
oIbo  bogin 

14  .Val  Ibb  8 than  Punt<-.Val)| 

Val-6| 

and( 

SPUTOnTRaHSnbjaet,Val,l,l)| 
r Intranaput  O t 
SBRERi:(t.HStara>| 

.Val 

end( 

routine  Start  ■ ^ 

bogin 

OKtornal  Ini t612,Rat8I2| 

cBoct  globala’CLOD.G’ I 

global  SEr r s , SPr eoh i , SFr ao  I o , SPr ag 4 1 , SProga t , Sliarn* t 
Inlt612ILNSpert,8,8,l,l)t  i 

RolR12(R68(>,8,l>  | 

end|  I 

I 

and  I 

oludoo  I 


PRCE  1-1  0Si:B>H0STRC.RE0tL150nL6BleCnU-10n  19-Jul-77  BSt33  18  blocks 


) nOSTRC.REQ 
I 

I Copyiriqhl  1977  P>  Hibboril  snd  P.  Kmioven 

I Pittsburgh,  Psnnsyivsnia 

I roquirsd  byi  CODE,  CODESU,  DBDEBl,  LEXRN,  SEtIRB,  SERRZ,  SERRl,  SEIIRSU,  SRTRBS 
I Osflnltlens  sssocistsd  Nith  aodos. 

Mere 


node  ■ Obleck  S, 
XHods  - 1 9, 


Itdw 

■ l,Uordf  9, 

NrilO 

• 1,RH  9, 

Hdsaen 

• l,QMrdiilz-B,l  9, 

Hddene 

■ l,Qurdslz-7, 1 9, 

nddeprec 

■ l,QNr-dslz-6,l  9, 

Itdspaclal 

■ l,QurdBlz-S, 1 9, 

Bdrocur 

■ l,Qurdslz-4,l  9, 

nddrossed 

■ l,Qurdeiz-3,l  9, 

Hdle 

■ l,Qurdsiz-2,l  9, 

11dpi  le 

■ l,Qurdalz-l, 1 9, 

ndprefed 

■ 2,Uardf  9, 

hdunddep 

- Z.Uordf  9, 

lldunecnt 

- 2,Uordf  9, 

Itdiinpndtn) 

> 3a(n>,Uordf  9, 

ndpreres 

■ Rdprofed  9, 

Rdpreent 

- 3,Uerdf  9, 

Rdprepres 

■ 4,Uordf  9, 

Rdprepretnl 

■ 4a(n),Uerdf  9, 

RdrnfRd 

■ Rdprofed  9, 

Rdevled 

m Rdprefed  9, 

Rdreund 

- 2,Herdf  9, 

Rdroiicnt 

> 3,Mordf  9, 

RdstrSOB 

> 2,Uerrif  9. 

Rdstr Isn 

- 3,Uordf  9, 

Rdstrent 

■ 4,Herdf  9, 

Rdstrf Ids 

■ S.Uordf  9, 

RdstrfMltn) 

■ Sa2s(n>,Uerdf  9. 

Rdstrf Ism (n)a  6a2s(n),Merdf  S| 

I Osflnltlens  of  ttdv  valuos  ter  eedss. 

Mere  Hdwal  (unlq,pl  ,dres,spc,  le)  ■ 

(pi>t(QMrdsls-l)  ♦ (le>t(QNrrisls-2)  a (drss)t(QHrdtli-3) 
« (spc>t(QMrdBlt-S)  * (unlq)  8| 


♦ 

i 


I 
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I 

i 

bind 

PIU  - 1,  SlapI*  - I, 

Oroooori  « 1,  Undrotood  ■ I,  j 

Spaelal  ■ 1, 

lo  ■ 1,  Nolo  ■ I,  ! 

Doproe  a ltlQMrd*li-6) | 

bind  Conotbv 


Ndvlnl 

■ ndvvnl 

( 6,  Slapla,  0 , 

8 

lo 

ndvl Int 

■ Ndvval 

( 1,  Plla  , Undrottad, 

Spoclal , 

lo 

Ndvraal 

• nuvvni 

( 2,  PI  la  , Undretaed, 

Spoclal, 

lo 

ndviraal 

■ fldwjil 

( 3,  Plla  , Undreaaod, 

0 

lo 

Hdvchar 

• tldvval 

( 4,  Slapla,  I , 

0 , 

lo 

ndvblla 

• nil  will 

( 5,  Slaplo,  0 , 

0 , 

lo 

ndvbylos 

• nrtvval 

( 6,  Slapla,  0 , 

0 , 

Nolo 

ndveir Inq 

■ ndvvjil 

( 7,  Pile  , Oraotod  , 

0 , 

lo 

ndvbool 

• ndvv*l 

( 8,  Slaplo,  0 , 

0 , 

lo 

lid  wo  Id 

■ ndvval 

( 9,  8 ,0 

8 

Nolo 

lldvot  Ip 

■ Hdvval 

(18,  0,8 

0 

Nolo 

Hdv Juap 

• ndvval 

(11,  0,8 

8 

Nolo 

fldvnl  1 

• ndvvAl 

(i:.  • . 8 

0 

Nolo 

nrivoul 

■ ndvvjit 

(13,  Pile  , Draiiail  , 

8 

a 

Hdvtn 

• ddvvAl 

(14,  Plla  , Oraaaad  , 

0 

0 

IldvDiitb 

• tldvvnl 

(IS,  Plla  , Dreiaad  , 

0 

0 

lldvinb 

• ndvvAl 

(16,  Plla  , Oraaaad  , 

0 , 

0 

ndvniiMbor 

• ddvvAl 

(17,  Plla  , Oraaaad  , 

0 

0 

ndvroN* 

• fldwal 

C18,  Plla  , Oroaaad  , 

0 

0 

ndwunlonof 

• 

1 19,  Plla  , Oraaaad  , 

0 

0 

Hrivbnda 

• ndvvAl 

(28,  Slapla,  0 , 

0 

Nolo 

ndvabaont 

• f1dvv«l 

(21,  SiapIo,  0 , 

0 

8 

ndvproc 

• W'ivvm 

:'*2,  Pi  la  , Oraaaad  , 

8 , 

Nolo 

ndvral 

• ddvval 

(23,  Plla  , Oroaaad  , 

0 

Nolo 

ndvatruci 

m f1dvv«4 

(24,  Plla  , Undraaaad, 

0 

Nolo 

ndvroM 

• ddvvAl 

(25,  Plla  , 0 

0 . 

No  10 

ndvovani 

■ ndvvtfi 

(26,  Plla  , Oraaaad  , 

0 

Nolo 

ndvrodo 

• ndvval 

(27,  Slaplo,  8 , 

0 

No  10 

nrivnoHoiapla 

■ fldvvAl 

128,  Slaplo,  0 , 

0 

Nolo 

ndvnoNpi la 

• ndvv«i 

(29,  Plla  , Oraaaad  , 

0 

Nolo 

Macro 

Callaodain)  • (Tnonplalnlll)  aql  1)  t, 

Cortaaodo (II)  ■ (ItindlOl  aql  ndvcodadlrtlOl ) S, 

EvaniModain)  ■ (nindlOl  aql  nrivovani tndlO) ) S, 

Hipaedoin)  ■ (Thlpill)  qlr  01  S, 

InIraalaodaIN)  ■ (NindlOl  laq  lldviraal  (lldini ) S, 

Nauaododi)  ■ (NtlldlOl  qtr  NdccorioindIDI ) $, 

Procaodaltl)  ■ <>1{l1dtni  aql  ndv'procindlOl  > t, 

Ralaododll  ■ (llindin)  aql  lldvrol  (IldlOl  I S, 

RpHailboilpdl)  a inttldlPI  oql  IldvroddldlD)  I t, 

Striictacdedl)  a (IlindtOI  aql  IldvalrucI  (llriin) ) $, 
Undo!  Inadapdainia  (Ntndin)  aql  Ndvabaont tndlOl)  t, 
UnlonolaedaOl)  a (IKIIdlDI  aql  IldvMnlenol  (tIdlOl ) S, 
UnMadaododl)  a (Tunltadlll)  qtr  0)  S, 
Utdonabla<N)  a (HCnrilOl  laq  Ndva tr InqlHdlOi ) t, 
Utdannloroudl)  a intHdlOl  qoq  Ddvbl  ti (IldlOl ) S, 


I Valid  onlq  II  Hidanabladi)  lo  Irua 
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Si>mi!lx«(XI,X2>  - (Ul)  oqv  (X2))  S| 

•Htarnal 

RoyO  Valuolonqlh, 

RogO  Tarllh, 

RogO  Tchart, 

RogP  Thip, 

RogP  Tilxo, 

RagO  Tnonplain, 

RagO  TunMad, 

Tun  I on, 

RagO  TXalxai 

bind 

XInt  ■ 1, 

Xlint  - 2, 

Xraal  ■ 3| 

XIraat  ■ 4, 

Xcobpl  ■ S, 

Xlceapl  ■ 6, 

XMxaizInt  ■ 2, 

XMKalzraal  ■ 4, 

I 

Xcbar  ■ i, 

Xalring  ■ 2, 

Xchara  • (Xchara2  ♦ Xehar)  -2, 

Xakip  ■ 1, 

X)UBP  ■ 2, 

Xnihl I • 3, 

Xoul  ■ 1, 

XIn  - 2, 

Xoulb  ■ 3, 

Xinb  ■ 4, 

Xmiabar  ■ S, 

Xroua  ■ 6 I 

I 

I END  or  nOSTRC.REQ 


I 

\ 


I 

i 
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I LEXRN. BLl 
I 

I Copyright  1977  P.  Hibbard  and  P.  Kmiovan 

I PItlaburgh,  Pannaylvania 

awdulo  Loxan  m 
bogin 

I 

I Laalcai  Rnalgiar 


Tho  loxlcal  .analyzar  convorti  a ilraao  of  charactara  into  a siraao  of 
laxoBOB  ropraaanting  tokana  ol  tha  RLCOL  68S  language.  The  atreao  of 
charactara  la  tha  source  prograa  and  la  auppllad  one  character  at  a tliaa 
by  tha  ayataa-dapondont  routine  OSEarcehar.  Tha  next  laxaoa  of  tha  prograa 
Is  obtained  from  the  analyzer  by  a call  on  Lxacan.  R deacrlptlon  ol 
tha  foraat  and  possible  values  el  faxaaas  nay  be  found  In  LXSTRC.REQ. 

R aero  spoelllc  Hat  of  the  functions  porleraed  by  the  lexical 
analyzer  is  tha  folloHlngt 

. Recegnlza  tokens  In  the  current  stropping  convention 

- Construct  laxoaoa 

- Output  prograa  listing 

- Ignore  coaaenta 

- Process  pragaata 

R source  prograa  aay  bo  roprosonted  in  any  of  lour 
stropping  cenvontlens.  Tho  current  default  is  tha  POINT  convention 
In  which  bold  tekona  (I, a.  bold-tags  and  ayabols  represented 
by  bold  character  saqunneoa)  are  indicated  by  a prolix  strep 
eharaclor.  This  strop  character  aay  be  olthor  a point  (.)  or  an 
apostrophe  (').  The  other  conventions  avellablo  are  UPPER,  LOUCR  and 
REB.  The  une  ol  the  strop  character  Is  peralttod  In  all  el  these. 

The  occurrence  of  a strop  lol lowed  by  an  alphabetic  character 
always  forces  tho  following  alphanuiioric  saiiuenco  to  bo  bold. 

The  UPPER  convontion  iiuos  upper  case  letters  to  Indicala  bold 
lattars,  while  LOIIER  convention  uaea  lower  case  letters.  R strop 
nay  bo  used  to  override  this  as  deacribori  above. 

In  RES  convention,  typographical  display  leaturea  nay  no  longer 
appear  between  tha  narks  ol  a lag  or  the  aynbela  ol  a denotation. 

R sequonce  of  alphaniinorlc  characters  surroundod  by  rilsjunclers 
(nen-alphanunoric  characters  or  typographical  display  leaturea) 
roproeents  a bold  synboi,  if  one  sxlBts  with  that  particular 
spoiling}  elharwisa  It  represents  a tag. 

In  RES  stropping  the  first  occurrence  ol  a user- introduced 
bold-lag  oust  be  explicitly  stroppod. 

Known  Nnncenlornanco  with  the  Hahaon-Boon  Report 

- There  Is  no  intlnidatien  character.  In  particular,  there  Is  no 

representation  of  the  worthy  character  underscore. 

- Upper  and  lower  case  letters  nay  be  Interelxed  following  a strop 

In  UPPER  (and  LOUrR)}  tinis,  .Begin  Is  always  allowed. 

- PRCC  pragnal-ltea  Is  net  inplenenled! 
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I 

I - npaolropho-iii«qe  syMbol  It  not  lapltaontad. 

I - The  RCS  convention  It  different.  It  probebly  deot 
I not  even  conforn  to  the  Report  boeeitee  of  the  rottrictlon  on  the 

I use  of  typoyrAphicsl  dItpUy  fesfurot.  Rlto,  spplled  oecurencet 

! of  bold-teyt  ere  reserved. 

I - S le  peraittad  at  the  first  character  of  a tag. 

I 

sul tches  nol 1st; 
rei|ulre  SVSPRN.REQ; 
reiiulre  COfIMOII. REQ; 
require  lOnnCS.REQ; 
require  LISPING. REQ; 
require  CRRCOtl. REQ; 
require  ERRLEX.RF.Q; 
require  LXTPBS.REQ; 
require  LXSTRC.REQ; 
require  nOSTRC.REQ; 
require  LXVCOft.REQ; 
require  LXVSV.REQ; 
require  LXTR6L.REQ; 
require  IIOTnBL.REQ; 
smI tches  list; 

ostornni 

Errchar, 

Errixptr, 

Ermonblank, 


Errptr, 

L Ineno, 

PblocI:  Faptr; 

t Pointer  to  ftrtt  locntjon  in  frcoAroft 

f oruarri 

Ini iLx, 

Z global  Z 

Reglf 

Lxerr, 

Outsrc, 

Nauch, 

RegO 

Nnxtch, 

RegR 

Seanch, 

TlalRBC, 

Tbeld, 

! 

Tbreaf., 

Putchr, 

Putevt, 

Uppercase, 

, 

Hashin, 

Z global  Z 

1 

Doprsg, 

Lxscan, 

Lx, 

Error char, 
Getpr laden, 
Cetstrgrien, 

X global  % 

RegO 

Seantax, 
Hashhold, 
Cettax, 
Cetbeld, 
Endoff 1 le, 
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Calopri 

OMn 

Chur, 

Churvtet  ErnbiiMCbufilta) , 

InrtoK, 

Inpraynont,  ^ 

Lan^aonl, 

Loot:iibaNrt, 

Chm-vBct  Srcbut  ICbtililza) , 

Srcplr, 

Srcateh,  • 

Sgacnt,  i 

SyMpIr,  i 

BMvacI  Typat 

I 

Moro 

Srcatat  * Srcb«il(6)  t|  | I Nptr 

i 

bind 

Srollna  ■ Srchuf (IpIrndK <2>> , I I Ipir 

SrolaMt  ■ Srcbtil  ( tp(rnrt»:(A) ) , I Ipir 

Srcand  ■ Srobtil  I IptrnriK(Chti(alz«*l)I , I Ipir 

ErrlaMl  ■ Errbiit  I IpIrnriKlII))  t I Ipir 


coMMiinl  I InllLp  I 

f 

I Funnlloni  Parlor*  por-coapi  lallon  Ini  I lal  laal  Ion  roiitilred  by 
I Iho  loHlCPl  Annlytor.  ' 

I 

qlobnl  roiitlno  InllLp  ■ 
hoy  In 
local  Piri 
IndoKrConIrol  I 
I npr  aguon  I t od  I 
Laol;nbnad<<P| 

LonynnntrOi 

PlrfctpIrlocliaralCrrbHl ) I 

nnlll  .Ptr  oql  trrloHl  do  raplacol (Pir , * "li 
Errpir-Err lapIr-.Pirj 
Crrchar*-"  "j 
Errnnnblanl.rtorit 

Plr»lplrlocbarB<Srebul)  I 
raplacol  IPlr, *i  *)  | 

until  .Ptr  ayl  Sretaal  do  raplacol (Pir,*  *)) 

Sroptrr.Ptri 

L Inonorli 

Zuroeor (HT, HTa I to) | 

F aplrrlaa  tab«;0, 0>| 

until  .FapIrlLlnl;!  aql  lllnuBi IL Ini)  do 
bayin 

II  .FapIrlLav)  aql  Lavlay  than 
FapIrlLNp)  >-01 
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HnahlnO  | 
•ndi 
nova  I u* 
and  I 


ceoMant  I LxorriN) 

( 

I Funedoni  Print  orror  ■oatags  tmlaii  curronllg  (ipocoailng  inalda 
I a pratjnonl. 

I 

I Valuai  Tho  Error  Iomomo. 

I 

I Inputfl 

( M - Error  codo 

1 Inpragoont  - noncad  IM  icannlng  pragaont 

I 

reutino  RagO  LMerr(N)  ■ 
bog  In 

It  . Inpragnant  agl  0 than 
Errort.N)  i 
LoKorror 
ond| 


coaaiant  I Outarc 
I 

I Funotloni  Output  a (Ino  oi  aotirco  dating  on  tho  Mating  davica. 

I It  on  orror  oecurrod  In  tho  lino  or  tho  lino  uao  Ignarod  duo  to  a 

I provleuo  orror,  than  o Mno  et  orror  Indication  lo  alao  output. 

I 1 1 an  orror  oecurrod  In  tho  lino,  thon  Errdov  Mill  bo  noncod  and  thuo 

I all  output  Hill  go  lo  lha  orror  davlco  alao. 

I 

rout  mo  Outarc  • 
hog  I if 

CvtdacctSrc I Ino, . L lnano,3>  t 
L lnano>-.LInono»l|  ^ 

Sreptr»-I  toHptr  (.  Sreptr)  | 
incptSrcptp) I 

OSE lo 1 1 Ino (Nptr tocharotSrebut ) , .Sreptr, .Errdov) | 

Srcptri-SrctOMt  t 

It  .Errnonhlanl:  nog  8 then  ' 

bog  I n 

Errptrrl  toMptr t.Errptr)  I 

IncptCrrptr) I 1 

OSEIat I InotHptrtocharatErrbut) , .Errptrv .Errdov)  i 

It  .Err char  oql  * * thon 

Errnanhlantnadt  I 

Errdovrtodi 
ondt 

ErrptrfcCrrlaptrrCrrtoati 

Srcotatr.Sreotchi 

novaluo 

andj  • 


comont  I NoMch 
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I 

I Funciiont  Gal  a non-control  characlar  Iron  (ha  Input  alraaa. 
I 

routina  Nauch  ■ 
boqln 
local  C| 

do  CrOSEarceharO  until  .Chariqpel.C)  naq  Clolrl| 

.C 

andi 


bind 

Skipnnna  ■ EOL, 
SkIpEOL  ■ Spaca, 
Skipapacos  ■ Errch, 
Sklplnprag  ■ Lattar; 


coMMont  I NoNtc)T(l.nval ) and  SeanchtLaval) 

I 

I Funotloni  Got  tho  noKt  aocoptable  character  Iroa  tho  aourco  Input. 

I Lovel  Is  uasd  to  Indicata  uhlch  oharactara  ara  acceptabla.  Noxich 

I aluaya  uaiia  a non  Input  charactar  as  the  lira!  charactar  to  conaldari 

< Scanch  starts  ulth  (ho  curront  charactar. 

I 

I Outputs 

I Char  - lha  current  Input  charactar 

I Tgpo  - character  type  o4  currant  Input  characlar 

I IndoK  - Index  ot  charactar  class  ol  current  Input  character 

routine  RngO  NoxtchtLaval)  ■ 
begin 
do  begin 

It  .Index  a<|l  EOL  then  OutaraOi 
II  .Lookahnad  nog  0 

then  <Char...Lool:ahaad|  Lookahoad>-0) 
else  CharKNouchO) 

Tgpor, Char (gpoC. Chari  t 

Indoxt-.  TgpotTpInrioK]  I • 

It  .Index  aql  EOF 

than  III  .Srcptr  nag  Srctaxt  than  OutsrcO  ) 
oil!  . Index  gir  EOL 

than  begin  i 

It  .Index  agl  Point  than 

II  (Leekahead..Na»ich(l ) gag  ’O'*  than 
begin 

Tgpe>-Clstropi 
IndoKrSIrepi  t 

end|  ' 

II  .Srcptr  agl  Srcsnd  than  OutsrcO  | 
raplacal (Srcptr, . Char) | 
raplacol (Errptr, .Errchar) i 
and  I 

and  I 

while  .Index  las  .Laval | 
novalua 
and  I 
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reullno  RnyO  SconchdoveO  ■ 
boyin 

II  .InrtOK  loo  .Lovol  than  NaKlchl. Laval )| 

novalua 

and  I 


ceaaanl  I Tdigl  I ,Tlal tar,TMppar,TloMar,Tdl9tsr, Tdlypar, 
I TdlgNar,ThaKi t,TlattarR,TpoHl6,TlalR0C,Tbold, 
I TbropI:  (Rolri) 


Valuat  Irua  II  lha  currant  charactar  It  -- 
(TdIgM)  a digit 

(TIaltar)  a lattar 

(Tupparl  an  uppar  caaa  lattar 
(Tlouor)  a louar  caaa  lattar 

(Tdigtar)  a digit  ar  lattar 

(Tdigpor)  a digit  or  uppar  caaa  lattar 

(Tdlguar)  a digit  or  loMor  caaa  lattar 

(Thaxit)  a haKldacIbal  digit 

(TIottarR)  a lattar  R 

(TpoulO)  a pouar  ol  Ian  chelea 

(TlainBO  a non-bold  lattar  agabol 

(Tbold)  a poaalbla  Ural  charactar  ol  bold  lag 
(Tbraak)  not  allouad  In  lag  or  bo  Id- lag 


Mcro 

Tdigl t (dual 
Tial lar (dual 
Tuppar (dual 
T louar (dual 
Tdiglar (dual 
Tdigpar (dual 
Tdigunr (dual 
Thau  1 1 (dual 
T lal larR (dual 
TpoulO (dual 


■ (. TgpaCTpdlgi 11 ) S, 

■ (. Tgpo(Tplottar)  naq  01  t, 
a (.Tgpa(Tpuppar) ) $, 

■ (.Tgpadplaunrl  I S, 

a (,Typo(Tpdlglorl  noq  01  6, 
a (.TgpotTpdlgporl  noq  01  t, 
a ((.Tgpa  and  Tpdlguorl  noq  01  >, 
a (.  TgpoITphOKi  (1  and  (TlalRRCd  or  Tdlqlldll  S, 
a (TlainOCd  and  Upparcaaod  aql  ’R"!  S, 
a (.Char  aql  or 

(TIaiRBCd  and  Upporcamd  aql  *£'*11  S( 


rout ina  T lalRBC  a 

caaa  .CDLpragI lagalPrgatrop)  ol 

aat 

bool  ITIallardIt 
boal  (TIattardli 
bool (Tlouor (1 1 1 
bool (Tuppar (I  I 

laai 


roulino  Tbold  a 

II  . IndOM  aql  Strop 
than  truo 

alto  caaa  .CBLpragI lagalPrgatrop)  ol 

tot 

IRES  X booMTltllordli 
X STROP  X laltoi 
X UPPER  X baallTuppordli 


t 
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I 

X LONER  X booKTIoNtrO) 

••■I  I 

Mcro  Tbroul: (Bold)  ■ J 

bag  In  | 

caaa  .CDLpragHagalPrgalrop)  at 

aal 

X RES  X not  TdIglarOt 

X STROP  X not  TdlqlarOi  , 

I X UPPER  X M (Bold)  naq  6 than  not  TdigporO  alia  not  TdlguarOi 
X LONER  X It  (Bold)  naq  B than  not  TdigNarO  alaa  net  TdIgparO 

laa 

andti 


coanont  I Putchr  and  Putcvt  I 

I I 

I Functloni  Stora  chnractan  In  LaKoaa  Tabla  antrg  iinrinr  conatriict  Ion 
I At  top  ot  traaoraA.  Updata  cttaractar  count.  Check  It  thora  It  auttlclant 

I apace  loll  In  Iraearoa.  Putcvt,  In  addition,  Ural  cenvorti  any 

I louar  caaa  laltor  to  tha  corraaponrilng  upper  caia  let  tar. 

I Inputa 

I Synptr  - Nptr  to  character  airing  In  nnu  LoKcao  Table  entry 
I Syncnt  - count  at  charactera  In  current  ayubol 
I Outputa 

I Synptr  - updated  alter  character  la  atoned 
I Syncnt  - Incronanted  by  one 

routine  Putchr  ■ 
boy  In 

It  nodu lot. Syncnt, Ochaurril  oql  0 then 
begin 

Storoteat  (.Synptr<Rd(lrt>)  | 

( , Sy  np  t r ) <Hpr  d f >*-0 1 
and( 

rep  I acoN (Synptr, .Char)  ( 

IncpISynptr) | 

Synenir. Syncnt*l| 

nova  I lie  ' 

end( 

routine  Putcvt  ■ 
begin 

CharrUpporcaaaO  | 

PutchrO  I 

novalue 

anri{ 

eennent  I Uppercaao 
I 

I Functloni  Conputo  the  upper  caaa  equivalent  el  the  current  Input  character, 

I 

routine  Uppereaea  ■ 

It  TIeuart)  than  .Char  and  (net  MB)  elae  .Chari 
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eoMMint  I Homhin 

I Functions  Soareh  Lokom  Toblo  (or  Iokooo  tlttlng  •(  it«rt  o(  (rto«ro«, 
I 1(  loxoM  lo  alrosKlg  In  tablo,  then  return  pointer  to  Ihli 

I old  loxoM.  If  M li  not  In  the  table  and  Noonter  le  not  eat  and 

I ua  are  net  Ineldo  a pragaent,  then  entar  the  loxaaa  in  the  table 
I and  return  a pointer  to  the  neu  laKeeo.  If  laxeea  it  net  found  and 
I a neu  entry  le  net  aade  then  return  zero. 

I 

global  routine  Haehin  ■ 
begin 

local  Total, Ptri 
Tolal«-B| 

PtrxNptrtooharntFaptr (iKeya) ) | 
doer  I Iron  .Faptr(Lxcesint)eQchnHrri-l  to  I do 
begin 

Tela  I*-.  Tola  UacanNtPtr) ; 

Incp(Ptr)  I 

ends  *■ 

To  la  I To  la  I and  HTBa!l:| 
do  Tolalv.Tetal-HTeizo  until  .Tolal  let  0| 

Tolal'-.Tolal'fHTalzos 
Hoonterf. Noonter  or  .Inpragnenli 
FIndtHTt. Tolal)  ,HTD<.FaptrlLMeount)«l)) 
ondt 

I 

i 

coaaunt  I DopragtN) 

I 

I Functleni  Carry  out  the  eaaantlce  of  the  pragnat  ipacifled  by  N. 

I I 

Macro  DopragtN)  ■ 

begin  1 

caae  <N)  of 
set 

I RES,  POINT,  UPPER,  LOIICR 
NaHBtroprtN); 

I Natislrap«-(N) ; I 

I Neuetropa-tN)  s 

' NeustroprtN) j 

I URRNINGS  and  NDimnNINCS 
CBLpragf  lags(Prgiiarn)  a-iruei 
CBLpragf  lagsIPrgtiarnI  a-falsei 

I LISTING  and  NOLISTING 
CDLpragf  lagsIPrgI  IsDrtrue; 

GBLpragf lagelPrgi iatlrfalsat 

I PRGE 

laai 

nevalue 

endS| 
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coMont  I Lxvcan 


Funodoni  Sc*n  « tok*n  Iroo  Iho  Input  »nil  r.turn  It*  I***-*. 

A token  con*l*t*  el  en  optloni*l  pr*9**nt  tpr.geet  or  co»e*nt) 

b9  A syMbol. 


iol Iom*9 


glebnl  routine  LKHcen  ■ 
begin 
lebol  Lt 

local  Loxone  Lom) 
Hhl la  b*9ln 

Srcotch*-*  "j 
LeM>-LKO  I 

.LokILkvI  opl  9 


ami 

do  bogin 

local  NoMotrepi 

lnpr*go*nt»-8pc*tch*-tl.*«ilLKp)  | 

Non*  t ropr . CBLpr agl I ag* IPrg*  tropl , 
repeat  begin 

local  LoKoee  Lax2| 

ScanchtSkipInpragM 
LeK2*-LK() ; 

II  .10x2  non  Lexerror  then 
II  .1.0x2  aql  Laxilop 

than  IError<ELx2) I exit  loop) 

el  1 1 .10x2  aql  .Lex 
then  exit  loop 

el  II  .Lex2lLxv)  *ql  Lxvprgltoe  and  .Inpragoent  aql  P 
than  Oeprag(.LeK2lLxp) ) ( 


and  I 

Inpragn*n<>-zad| 

CDLpragI I ag*  IPrg*  trop) ►. Meuatropt 
endt 

Lieelect  .LextLxvl  ol 
noet 

Lxviongt  axIlL  Longnontr.Longocnl*l| 
Lxvehorti  exIlL  Lomjncntr.Longncnt-li 
Rllal**i  LongnentxO 
taeni 
.Lax 
nndt 


comment  I Lx 
I 

I Fund  lent  Scan  a agabol  Iroa  the  Input. 

I •, 

I Valuoi  Loxaae  lor  the  eyabol. 

I 

rout Ino  La  ■ 
begin 

local  Pbleck  Laxi  • 

bind  LxBout*  ■ opIlH 

I I Control 

9,  « eoL 


pncE  i-it 
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8. 

1 Space 

Errorchar, 

1 Errch 

Colprlndon, 

1 Digit 

Celprindon, 

1 Point 

Colatrgdan, 

1 Quota 

Colepr, 

1 Punct 

Colopr, 

1 Planin 

GaltaM, 

1 Lallar 

Got  lax, 

1 Dollar 

Galboid, 

1 Strop 

Ended  Ho. 

1 EDF 

Calepr  )| 

1 Prag 

do  bagin 

Scanch(Sl:  Ipapacaa)  | 

Err lKp<r*.Errptr| 

Sv  icnt^Si 

SgMi*r«Nptrteehara(FaplrlLKayB) ) | 
LaM>'(,LHRiiiila(.  Indakl ) () 

•nr; 

unti!  .L«m  n«q  ItNarrer  or  .Inpragnant  naq  D| 
.LaH 
and| 


eoaapnt  I Errerchar 
I 

! Funetiani  Oaal  wMb  ailuadon  Mhnra  illaqal  eharaelar  eceura  in  tba  aourca. 
I 

I Valuai  Error  laMano. 
t 

retMlno  Errorchar  ■ (tuarr  (ELkB)  t NaKtch(Sk  Ipnono)  | Laxarror>| 


comont  ' Galprtaden 
I 

I Funotloni  Scan  a prlnMIva  donelaUon  Iron  tha  Input. 

I 

t Valuai  LoxaM  lor  tha  rianatatlon. 

I 

routine  Cotprlndon  ■ 
begin 

local  Slate,  lledc  Hi 

oxtornal  Langibon,  Cvtb.Cvl I ,Cvl I l,Cvtr,Cvt  lr| 

bind  Vector  Gvtrin  ■ upl 1 1 (Cvtb.Cvl I ,Cvt 1 1 ,Cvlr,Cvt lr> | 

Slalo>-(ll  . IndoK  aql  Point  than  1 alta  81 1 
rapeat 

baqin 
Putcvl O I 

NaHtcMIl  .CBLpragllagatPrgalropI  aql  0 than  Skipneno  alia  St Ipipacaa) | 
caaa  .Slala  of 

•01 

I 8i  acan  dtgl la 

II  . Indaa  aql  Point 

then  Slalo»l 
olll  TIollorRO 


I pncE 
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thon  Slalot-8 
alM  TpoulOO 

Ihon  (Ch«p»*E''|  S<atOp3> 
all!  net  TdlqllO 

Ihon  (N»l1itlnl|  oxMlbap>| 

I li  f Uod-poInt-nuMrai  ouol  IoIIon  point  In  tract  Iona  I -par  I 
It  TdlqllO 

than  StalOp2 

oloa  ralurn  LKarr(ELK*>|  ' 

I 2t  scan  dlqlti  ol  Iraet lonal-part 
It  TpeulBO 

than  <Char»*E"t  SlalaOl 
allt  not  TdlqltO  ^ 

than  (Itolldroal  I ax  It  loop)  | 

I 

I 

t 3i  chock  lor  plutalnua  In  axponent-parl 

I I . InrioM  aql  Plaaln  I 

thon  Statopk 
olll  TdlqllO 
Ihon  StatapS 
alta  roturn  LKOrr(CLK4>i 

I 4t  I Ixod-polnt-niinoral  aMit  tollou  pluaalnua 
It  TdlqltO 

thon  Slalo-5 

also  ralurn  LxarrtELMt)] 

I 5 1 scan  I Ixait-polnt-miaoral  In  axponanl-part 
It  not  TdlqllO 

Ihon  (Itkllriroal)  axltloop>| 


I Bi  dlqlts  mist  tollou  lottar-r  In  bl It-donelat Ion 
It  ThoxIlO 

than  Slalar7 

also  raturn  LKarr<CLKO>| 

I 7i  scan  dlqlts  In  bl ts-danolat Ion 
It  not  ThoxItO 

Ihon  (Itplldbltst  oxitloop) 

lost 

ond( 

HrLonqthant. n, . Lonqocnt ) | 
roplacoN(Sqnplr,0) | 

It  (.CvIrtnCTar  I tht.lt)) ) O qtr  6 than  raturn  Lxarr<CLK*>t 
r apir  (Lxdonndl  r.lt; 
r aptr  lt.Kvl  pLxvpr  ladant 
Taplrtlxp)  -Bl 

r aptr  (Lxcoiinl)  -Valuolonqth(.ll)  »1| 

Tapir  (Lx  tok on)  -TlcDonoti 

HaahInO 

and  I 


cooMont  I Colstrqdon 
I 


I 
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I Function!  Scon  « «lrln9  rionotollon  Iron  tho  Input. 

I 

I Valuoi  Loxopo  tor  thn  itrlng  donotptlen. 

I 

routine  Getotryrien  ■ 
bogin 

OMtornnl  Cvtstrgt 

SyoptrrMptrtochnrntFoptr  tUitpgrop) ) | 
ropont  begin 

Src«tch^*S"t 

NoKtchtSk lpE0L>  | 

It  .IndoK  agl  EOF 

than  return  LKorrtELKl) 
ollt  .IndoM  nog  Quota 
then  PutehrO 
olao  begin 

Srcatchr"  "j 
NoKtch(SKIpnone) I 
It  .IndoK  eql  Quota 
than  PutchrO 
olao  bogin 

ScanchtSK Ipapacea)  | 

I t . Indaa  noq  Quota 
than  OKltleopi 
and 
and 

ondt 

Cvtatrg(.Sgncnl) ; 

It  .Sgocnt  aql  1 

Xhwn  (SyMcnt«-0(  Fjiptp(LKd«nw«  •-nriehuri  F*plrlLjtil«nropU.f»ptrttx«tr9r»pJ ) 

• Itfl  (Fuptp ILxd^nndl ^Wdetrinq;  Fjiplr(Lyd»nr®pl^eSywcnl)| 

FaptrtLxvl  <-LKvatrqdan( 

Faptr(LKpl«-0| 

r aptr  tLxcountI  ••div  I dot.  Sgocnt  ♦SaZchaurd-liZchaurd)  | 
raptrtLxtokonlrTkDonali  *■ 

HaahInO 

and| 


eewoont  ! Scantoxtlleld)  , 

I 

1 Function!  Scan  charactora  conlalnod  In  a lag  or  bold-tag. 

I Inputa 

I Bold  - nencod  Itt  acanning  bold-lag 
I ' 

routine  ttngO  Sc-'itaxtBold)  ■ 
begin 
do  bogin 

Puicvt  O I 

NoKichtll  .Bold  noq  B than  Skipnono  olao  Sklpipacoa)) 
and 

until  Tbr oak (.Bold) t 
Faptr  (Lxpt  •'Bi 

Faptr  tLxcountI  Mil  vldo<.Sgacnl*QehaHrd-l,Qehaurdl  I 

nevaluo 

ond| 


1 


I 
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coMwint  I Httahheld 
I 

I Fund  lent  Seen  e beld-t«9  (neb  the  Input. 
I 

I Veluei  LbKbbe  ter  the  beld-t*g. 

I 

routine  Habhbold  ■ 
beqln 

Sc«nt«K(nonced)  | 

Ftiptr  (LkvI  •4.xvtab| 

Faptr  CLKtakan)  »TkBeld; 

HbbhinO 
end  I 


coeeont  I Cel  tax 
I 

I Function:  Scan  a TRX-ayebol  free  the  Input.  In  RES  convention  the 
! eyebel  eeannod  eay  bo  a TRB-eynbel,  otherHiee  it  ic  a TRC-tyebol. 

I 

I Value:  Lexaee  (or  the  syebol. 

I 

rout f no  Cot  lax  ■ 
begin 
It  TbeldO 

titan  begin 

local  Valt 

II  .CBLpragl lagalPrgetropI  aql  ( then 
Noanter..nanr.ed| 

It  (Val.-Haehhold())  noq  0 than 
return  ,Val| 

and 

alee 

Seantax  (r.ed)  t 
Faptr  (Lxv)<4.xvtagi 
1 1 . Inpragnont  oql  'C 
titon  Loxorror 
alia  begin 

Faptr(Lxtol;an)*-(l(  .Inpragnont  aql  0 then  TkTag  alia  TkPragltaeli 

HanhtnO 

and 

onrii 


coeeont  I Celbeld 

! 

I Fuiietlen:  Scan  a bold-tag  Iron  the  Input. 

I 

I Valuoi  Loxana  (or  the  bold-lag. 

! 

routine  Catbeld  ■ 
bogin 

local  Val,Savatropi 
Naxteh  (Sr.  Ipnone)  | 

II  net  TIatlarO  then 


I 
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raturn  l.K«rr(ELK5)  I i 

SavBtpap«-.CBLpri«9Ha9ttPr9tlrop)  | J 

CBLpra9< la9t(rr9ilrop)  cl) 

VaUHaahboidOt  I 

CBLpragI la9a(Pr9alropI p.Savalropi  | 

.Val 
and  I 


conasnt  I Endolllla 
I • 

I Functleni  Balurn  STOP  laxaaa  to  Indicata  aourca  and-ol-4 1 la  haa  oceurrad. 
routina  Endolllla  a ralurn  laMatopi 


eoaaonl  I Calopr 

) 

I Functleni  Scan  an  operater  Irea  the  input. 

I 

I Valuai  LaKcaa  lor  tha  operator  or  Error  laxaoo. 

I 

routine  Cotepr  ■ 
bo9in 

local  LMptr,S,Oldat 
LKptrcLoKarrert 

S-0| 

do  begin 

Oldir.St 

II  .Char  eql  .Opehtabla(.S,Otchar) 
than  begin 

NoKtchlSX Ipnone) | 

Lxptr«-.0pchtablot.S,0l  lax]  | 

II  .Opchtabla(.S,Olnext)  than  S-.S^OtroHalxai 
and 

alae  begin 

S-.S«.0pchlabla(.S,0tal t) | 
and| 

and 

until  .S  aql  .Oldii 
II  .Lxptr  aql  Laxarrer 
than  Lxarr(ELx3)  ■ 
alaa  Oplxtablal.Lxptrl<0,B> 

andt 


global  routine  LxIIno  a 
begin 

ScanchlSk ipapacaa) | 

nevalua 

•nd|  . 


end 

aludoa 


i 
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I SRTRBS.BLl 
I 

I Copyright  1977  P.  Hlbburd  noil  P.  Knuevon 

I Pittsburgh,  Psnnsylvanla 

awdwio  SRlabsa 
bogin 
I 

I Sooantle  Tahiti 

I This  oodult  dodnot  tho  ontrlaa  initially  containod  In  tha 

I ftodo  Tablo,  Operator  Table  and  Sysbol  Table. 

I Kernel  call  tabloe 

I In  - ZKaX  ...  Z<KX 

I out  - XK>XX  ...  XX<KX 

I Hydra  tables  (other  than  Kernel  call) 

I in  - XH>X  ...  X<Hr. 

I out  - XH>Zr.  . . . XZ<HX  a. 

I 

sul tchOB  nol lit; 
roquiro  SYSPRfl.REQi 
reciiiire  COItllOII.  REQi 
rsiiiilre  LISPKG.REQ; 
requiro  LXVCOIt.REQt 
require  LXVSY.REO; 
require  LKPVOL.REOj 
require  EIIIT.REQ; 
require  tlDSTRC.REQ) 
roqiiiro  STSTRC.REQ; 
require  OPSTRC.REO; 
require  LXTRBL.REQ; 

SM itches  list; 

Macro 

oMpty  ■ 8i8  S, 

Oa(stld<ef<st,nd, lx)  ■ 

8,  Qadrincaupl  1 1 (8,  lx),  8,  HfHordt<Slbtypo(Stdidty,Stbdoi id) , 8), 

I (effst  * ZRsiilBbaaa  * ZRsIzLEDbese  ♦ 1),  8,  nd  S, 

I 

I 

Oofstoprl (prle,Btd,  lx)  a 

8,  Oadrlneaiqtl 1 1 (8,  lx) , 8,  HlNordi(Stbtypo(0,Stbde(prlo) ,8) , 
std,  8,  prie  8, 

Datstopr2(prio,std)  ■ 

8,  8,  8,  H(Hords(Slhtype(8,Slbdo(prlo'),0), 
std,  8,  prio  S, 

netdenint (val ) ■ 

Lexndxvprloden,  val),  H(Norris(2,Tk0onot),  Hdlnt,  val  8, 

no<teg<len,Btr)  ■ 

LsxntLxvtag,  8),  HlHerds((lonaQchSMrd-l)/QchsMrd,  TkTeg),  sir  8, 


Detbelddv,  Ip,  lan,str) 
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B,  UexMdv,  Ip),  Hluor(l*((l*n«ach*ur«l-ll/QehBMr(<,  TkBeld),  itr  S, 
0ofpr«9Me*(lp,  l*n,i(r>  ■ 

B,  LcKnILKvprgi  Ip) , Hluor(tc((l*n*QcheMr(i.l)/Qcb*Hril,  TkPraqIlea),  str  S, 
Dctepr(l*n,*tr)  ■ 

LcMa(LKVopr,0),  HlHOrd*((l*n»Qch*ur«t-l)/Qch*HMl,  TkBeld),  tlr  S, 


OofcodoOCgicId)  ■ ndvcodo^Ooproc,  yield,  B S, 
nelcodoKpl, yield)  a ndvcode,  yield,  1,  pi  t, 

Doleedo2(pl,p2, yield)  a ndvcode,  yield,  2,  pi,  p2  t. 

Oof procO<y ia Id)  a fldvproe^Ooproc,  yield,  0 S, 

Oofprocl (pi, yield)  a ndvproe,  yield,  1,  pi  S, 

Oe fprec2 (pi, p2, yield)  a lldk/proe,  yield,  2,  pi,  p2  S, 

0a(proc3<pl,p2,p3, yield)  a Kdvpree,  yield,  3,  pi,  p2,  p3  S, 

Delproc4<pl,p2,p3,p4, yield)  a Hdvprec,  yield,  4,  pi,  p2,  p3,  p4  t, 
0*lprec6<pl,p2,p3,p4,pS,p6, yield)  a ndvproe,  yield,  6,  pi,  p2,  p3,  p4,  pS,  p6  B, 

DoireKMl)  a ndvrof,  ad  S, 

Da(roN<ad,Pcnt)  a ndvroM,  ad,  rent  S, 

D*(union2<al,a2)  a ndvtinienel,  2,  al,  a2  S, 

0at*lruct2(*l,  Il,a2, 12)  a Hdvclruct,  8,  8,  2,  ai,ll,  a2, 12  S, 

0a(atruct4  (al,  I1,b2,  I2,a3, 13,a4, 14)  a ndvciruci,  6,  0,  4,  al,li,  a2, 12,  a3, 13,  a4,l4  t| 


bind  duaay  a B( 

datnnree(nrteO) 

qblitAnedIriint, 

ndvint) , 

qblnaa>a(ndl  Int, 

ndvl Int) , 

yblnnaa(ndbi le. 

ndvbl to) , 

<jb  1 nano  (ndby  tee, 

ndvbytoe) , 

yblniine(ndrnal , 

ndvroal), 

qb 1 none (Hdl roe  1 , 

ndvireal ) , 

(|b  1 nane  (Krthne  1 , 

ndvbool) , 

<jblnana(ndnban. 

nrivnoMaiaple) 

qb  1 nano  ((fdnhnr , 

ndvchar) , 

(|b  Inane  (Hrintr  Inq, 

ndVEtriny) , 

qblnaneindl i le. 

ndvnatipl  In) , 

qblnaneindnnna. 

ndvnoiipi  le) , 

yb Inane (ndvoid. 

ndvveidi , 

yblnanotndr.r.  Ip, 

ndvckip). 

qblnanoindjqap. 

ndvjuap) , 

yblnaaoindnl 1, 

ndvni 1 ) , 

qb Inane <ndout. 

ndveut) , 

qblnaaeinriin. 

ndvini , 

qblnaneindeutb. 

Rdvoutb) , 

yblnane<Ndinb, 

(Mvinb), 

yb  Inane  (ndniinber , 

ndvmiaber) , * 

qblnaneindroMa. 

tdvreua) , 

qb  1 nano  (Hflbnda , 

ndvbntie) , 

ndvabeenl) , 

yb Inane (npreut, 

ndvproe) 

datanndt 

deleereetndel) 
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data( 

qblnaMadldconpl, 

Dalttruct2tndroal,Lai 

daia( 

a), 

qblnaRa(ndlcoMpl, 

Do  It  true  t2  tdd  1 roa  1 , Li 

datat 

a), 

qb  1 natia  (Roubeo  1 , 

Oalroutdribeol , 1)>, 

datat 

qb 1 naaa (Ronchar , 

OalroNtllrichar,  1)), 

datat 

»>, 

1 ocnana  (Rohoii  t , 

OalroHtddaut,  1>>, 

datat 

tocnaaatRoNln, 

OolroNtlldin,  1>), 

datat 

a). 

leenaaatRoMoutb, 

DtlroHtndmitb,  1)), 

datat 

«», 

loenanatRoMlnb, 

DolroMtndlnb,  D), 

datat 

•). 

<lb  1 nana  tPrcbndn, 

DalpracOtnribnriaM, 

datat 

a>. 

locnnnatPrc2l V, 

Oa lproc2  tdri 1 n t , dd 1 nt 

datat 

o>. 

locnanotRof Int, 

Delral  tltdlnt)) , 

datat 

•>. 

locnanatRel 1 1 la, 

Oolraltndflla)), 

datat 

0), 

qblnaaetRalttr Inq, 

Oolral  flldotrinq)) 

I RoMod  Moda  Indicant 


(iaianndt 

dalaaroa<l1dr.2) 

(lala< 

qbInnaatPrcrtv, 

(lata( 

lecnnnotPrcbt, 

clatat 


Oolpreel (Rol < I la,  Hrivold)), 

8», 

OalprocKRaMI  la,  Itdboal)), 

0>, 


t Ratal,  Cloaa,  Scratch 


loenanotPrcl  Ibb,  0o<proc3(l1rtlnt,ndln(,nilbl  It,  rtribooD), 

(latal  0), 

locnnnolCodIbtv,  0olce(le2(n(llnt,n(lbi It,  hdvoid)) 

datafind{ 

dataarna(ndn3> 


datat 

»>. 

1 ocnana fPrcreal, 

DolproeOtnriraal)), 

1 Ranrion 

datat 

»>• 

1 ocnana tPr err, 

Oolprecltltdroal,  ddroal)). 

1 Sin,  Coc,  ate. 

datat 

e». 

locnanotPrcbIrb, 

OalproeltRpHbool,  ddbltf)), 

1 BMa  pact: 

datat 

a), 

locnaMatPrcbqat, 

Oolproeltndatr Ing,  lldbgtot)), 

1 Bqtaa  pack 

datat 

0», 

locnanatPrcrIlr, 

Oalprocl tRal Int,  Hdroal)), 

1 Naxt  ranrion 

datat 

a>. 

Oalprocl tRol 1 1 la,  ddlnt)). 

t Char  nunbar,  ate 

datat 

a>. 

1 ocnana tPreehl, 

Oalprocl tRal 1 1 la,  ddchanl). 

1 Chan 

datat 

•>, 

loenanatPrcvout, 

Oalprocl  (RohoiiI,  Rdvold)), 

1 Print,  Urila 

datat 

PACE  l-« 
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locnono (Previn, 
dal*  ( 

loennnaiPrcvob, 

d«t«( 

iocnMiii<Prcvlb, 

d«l«( 

locnnnoiPrevfeut, 

d«l«( 

tocnnnelPrcvdn, 

d«t«( 

locHAnolPrcvlp, 

d«t*( 

locnnno  (Prcvlg, 
d*t«( 

locnanaiProvft, 

(lAt«( 

loenAnii(Prevr<ri, 

clAt«( 

locnano(Preon, 

d«t«( 

lacnnn«(Prctnll , 
cl«t«< 

locnan«(Prc*n2l , 
dala( 

locnAiip(Prel  lie, 
dAla( 

,locnMMo<PrcBn3l , 
<lM(a< 

locnanolPrcvOI, 
data  < 

locnanalPrcoat, 

data! 

locnanotCodcibtv, 
dala  ( 

I ocnane (Cadp2 I vv, 
data( 

locnana(CDClpi  Ibbv, 
dala( 

I ocnane (Code  I blvv, 
data  ( 

locnana(Codlv, 

dataand( 


Delprocl (RoNin,  lldvold)),  I Read 

Dofproel (Rniiaiitb,  flrivoid)),  I Urlte  bln 

•), 

Dofproel  (Roiijl^nh,  ndvold)),  t Read  bln 

»). 

0ofprec2(Ra(f  I l*,RoHO(it,  lldvold)),  I Put 

0ofproc2(Rof  1 1 l*,ReNin,  lldvotd)),  I Cat 

ot. 

Dofprec2(Rel f I l*,RoHPulb,  lldvold)),  I Putbln 

8>. 

Dolproc2(Ral 1 1 la,RoNlnb,  lldvold)),  I Catbln 

8), 

0olproc2(RA(l  I le.lldetrlng,  ndvoIdH,  I (lake  tern 

e>i 

De(ppec2(Ro(f I l*,Rali(r Ing,  lldvold)),  I neeeelate 

«>, 

0olproc2(Raf  f I l*,Prcbl,  lldvold)),  I On  routine* 

0). 

0ofproe2(l1dminbor,nrilnt,  I1d*trlng)),  I Uhele 

B>. 

D*lproc3(l1dmiMbor,nrilnt,l1dlnt,  llridring)),  I Fixed 

0). 

Defproc3(Ral(  I Ie,l1detr^lng,l1dchan,  lldint)),  I Open 

0). 

Dofppoc4(ndminbor,ndint,ndln(, lldint,  Kditrlng)),  I Float 

01, 

Dofproc4(Re(l  I la, lldint, lldint, lldint,  Hdveld)),  I Set 

0). 

OelprocCtRol f I I*,l1d»tr lng,Hdc)ian,l1dlnt ,t1dlnl,f1dlnl , lldinl)),  I E*lab|l*h 

8), 

OalcodaO(Codibtv) ) , 

8), 

Oeleodol (Pre2l V,  lldvold)), 


6), 

DofcerioKPrcl  Ibb,  lldvold)), 

e>, 

OefcodoKCodibtv,  lldvold)), 

e>. 

DelcodeKlldInl,  lldvold)) 


I Sg*  trace 
I On  tick 
I On  error 
I On  eg*  trace 
I Uarning  levet 


rH>7. 

dntaarea(HijriO) 

gb  I nano  (lid  I Ina, 
dalannrii 

dataamaOIgdl) 

ftala( 

loenanolRal I Ine, 
dataondi 

dalaaroa(Hgd2> 

dala( 

l0cna»a(Codv, 


lldvneiipl  le) 


•», 

Oalraf  (lldl  lee) ) 


B), 

OelcodoOdldveld) ) , 


pncc  i-s  . 
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dutiii 

locn«iia<Co(lrf  tv, 

(••tut 

locnitae  (Codlarl, 
dalAondi 
X<HX 


rK>r.z 

dolKoroMtkarOI 

qblnanotlldnlol, 

qblnaaadldBlap, 

d*t«and{ 

daiaapaalKarl) 

dalat 

I ocnana  (lldr  t trnutt , 
data( 

locnanotRoHint, 
data  ( 

locnana (RoMBtap, 
dalanitdi 

dataarBa(Kar2) 

data! 

locnaaBdldNalk, 

dataand} 

dataaraatr.arB) 

data( 

loenaaatlldpath, 

dataand) 

dataaraatKarA) 

I ocnaaa  tltda  I qpara, 
locnaaatlldpathniot , 
dalannrii 

datanraatl.arri) 
data  ( 

locnaaatndarql Ist, 
datat 

I ocnana  tPrcB  tap, 
datat 

I ocnaaa (Prepay, 
datat 

loenaaatPrepBb, 

datat 

locnaaotPrcpBB, 

datat 

loenaaatPreHpav, 

datat 

locnaaotPrepBRv, 

datat 

I ocnana (Prepaab, 
data! 

I ocnana (Preabv, 


Oelcodol (Balt lit*,  Itrivold)), 

•>. 

OBtcodoltltdt In*,  ItdroaDI 


Itdvnoupl  la) , 
ndvnauRlnpla) 


e), 

Do(Btruct4  (ttdbl  ta,L*Kaux,ndbl  (B,L*x9an,l1dbool  ,L*x*np,ndbool  ,L*xl*np)  > , 

8), 

OoiroNtlldlnt,  D), 

8), 

OofroMtltdatBp,  1)) 


8). 

Dalrat (RoMBtap) ) 


Da  I a true  1 2 ttlda  I o I , Lokb  , lldua  I k , Lbkn)  ) 


Dolunlan2  (tlripnlh.ltdiiloO) , 
0olunlon2  (nripn(h,l1dalot) ) 


0),  . 

Oe  Iron  tltda  I gpara,  1)), 

OolprocOttIrintap) ) , i 

8),  I 

Dolprocl (tidpntbalot , lldvoid)), 

8), 

Oolprocltttdpatbalot,  ndbooD), 

8), 

Dolprocl (ttdpatha lot,  lldctap)), 

0>. 

Do  Ipree2  (llria  let,  Dripa  Iba  lot,  ndvo  Id)), 

0), 

0* Iprec2  (ttdpatbR lot , tlri* I ol , lldvo Id)), 

8), 

D*lproc2(l1dpalhalol,nd*lel,  lldbl  la)) , 

8). 

0*lproc2(ltdBlet,l1dbl ta,  lldvoid)). 


L. 
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data! 

I ocnane  <Prcpar  t v , 
riata( 

locnaao (Prcpiirtv, 
data! 

I ocnaaa (Prcpaarti, 
dalat 

I ocnaaa (Prcaspav, 
data! 

locnanolCoda, 

dala( 

locnana(Corilat, 

dala( 

locnaaa(CadrlH, 

dala( 

locna*a<Cariial , 
dataandi 


6). 

0alproc2(ndpathalo(,ndrtaaatt:,  ndvold) ) , 

•>. 


Dolproc3(ndpalhalo(,nrialot ,ndrtBBaak,  ndvold) > , 

6). 

Da  (proeS  (Hdpa  Ilia  I e I , Pria  I o I , Hdr  t anaak , Hda  I ap> ) , 

6>. 


Dofprac3(ndBlol,ndBlol,ndpathalo(|  Hdvold)) , 

6». 


DBfcodaO(ndalot)), 

•>. 


DalcorioKHdlnt,  Hdalap)), 

e». 

OofcodaKRoMlnt,  ndNalk)), 

6). 

OafeodoKndint,  Hdalot)) 


dalaaraa(kar6) 

data! 

loenanolPreapnab, 

dala( 

I ocnano  (PrcapaHa I , 
dalanndi 
Z7.<KX 


0o(proc3(nrialo<,Ndpathalo(,nriargl  lat,  ftdbl  ta)) , 

0). 

Ootppoci (Hdalot ,ndpathalet ,ndHalk ,ndar9l lat,  nobl ta) ) 


alruotuPn  fMdoCf, P,S)  • (.  InodotOarirlncat.  {-!))«. P,  .$>) 
nap  Inodo 

XH>X  Rnit  InoiCodviCodrltvtCoritnrli  Z<H7. 

7):>XX  ndim  Ik  I Ron  Inti  Rohii  topi  Hdarg  1 1 a 1 1 ndpnttii  ddr  tanaaV.  i 

PrcpawiPrcpcartviPrcapaviPrcapaMal  i 
Prcpcavi  PrcpartviPrcpobi  PrcpaartaiPrcpaaiPrcapaabi 
Prcpaabi Prcabvi Prcatapi Prcaapavt 
CodaiCodiatiCodrlui Codicil  ZX<);X 
Rot  Inti Rol 1 1 laiRolatr Ingi 
RoMheel  i RoNctian  Ropotit  i Ron  Ini  Roiioiitbi  Ron  Inbi 
ndconpl indiconpl  i 

Prcbndoi Prcpoal  iPpcmPrcbtrbiPrcl  Ibbi 

PpcI  I iPpcbliPreclitiPrevobiPrcvIbiPpconiPpcanll  iPPCbyctiPpcpI  Ipi 
PpcvI3I  iPPCPfviPpcvoutiPpevIniPpcvloutiPpcvpfpaiPpcvfai 
Ppoan2l  iPrcanSI  iPpcoatiPpcvl  Ini  PpcvIpiPpcvIgi  PpcI  laeiPpc2lvi 
CodlbtviCodp2l  vviCodpi  IbbviCodcIbtviCodcIblvviCodl  v| 


q lobaldata tVoetOP, Idata, ) 

Roll,  Ral Int (L Ink) ,Rol< I lalL Ink) (RolatPlnglLInk) , 

ZH>X  Raft  iiM  (Link),  Z<HX 

XK>XX  ndiialklLlnk),  Z'/<ICX 

6, 

RonL,  RoHbool  (Link)  ,RoNe)iaplLln);)  ,RomoiiI  (Link) , Ron  In  (Link) , 
RoNOutb(Llnk) ,RoNlnb(Llnk) , 

XX>Zy.  RoNinl  (Link)  ,RaNBtap(Llnk)  ,ndar9l  lat  (Link) , ZX<KX 

6, 

StPuelL,  ndconpl (L Ink) ,ndleoBpl (Link) , 

ZK>XX  ndpatb(Llnk),ndPtaBaak(Llnk),  XZ«XX 


PRCE  1-7 
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•»  I 

ProcL,  PpcbnrtnlLlnkl ,Ppcr«Rl  ILlnfc) ,PrerptLinkl , 

PrcbtrbCLInkl ,PpcI I (Link) ,Prcbl (Lihk) ,Prechl (Link) , 

PrcvOi  (Link)  ,Prcpfv(L ink)  ,Prcvout  (Link)  ,Prcvln(Llnk) , 
Preveb(Link)  ,Prcvlb(Link)  ,Prcv(i(Link)  ,Ppcwp(pi(Llnk) , 

Ppcvlout  (Link)  jPpcvl  In(Link)  ,Ppcv(p(Llnk)  ,Ppev(9(Llnk) , 
Ppcen(Llnk) ,Ppe!nll (Link) ,Ppein2l (Link) ,Ppccn3i (Link) , 

Ppc I Itc (Link) (PpcoB t (L ink) ,PpcbyBl (Link) ,Ppcpf lr(L Ink) , 
Ppc2lv(Llnk) ,PpcI Ibb(Llnk) , 

ZK>ZZ  PpcipiMnl  (Link)  ,PpepBv(Llnk)  ,PpcipRv(Llnk)  ,PpcpBBPlv(Llnk) , 

PrcpB!\/(Llnk)  ,Ppcpsptv(Llnk)  ,PrcpBb(Llnk)  ,PrcptBr(B(Llnk] , 
i PrcpBilLInk)  ,PpeipBBb(Llnk)  ,PrcpDiib(Llnkl  ,PrcBbv(Llnkl , 

PpcBtBp(Llnk) ,PpcBipBv(Llnk) , ZZ<KX 

«. 

CodoL,  Cadlbtv(Llnk) ,Codeib<v(Link) ,Codp2ivv(Link) ,Cedpl lbbv(Linkl , 
Codclb<vv(Llnk) ,Cadlv(Llnk) , 

ZN>Z  Codv(L Ink) ,Codp(lv(L Ink), CodlBPl (Link),  ZkHK 

XK>y.V.  CodiitLlnk),CodlBltL)nk),Codp)H(Llnk),Ced)Bl(Llnk),  zr.<KX 

e. 

EventL,  0, 


bind  I IndoNBB  Inle  lha  XnodoB  tabl*  (bob  SEnRt.BL!) 


Hint  m 0.  mint  ■ 1,  npa«l  ■ 2,  HIporI  ■ 3,  nceapi  ■ 4,  nieoapl  ■ S, 
nchnr  ■ 6,  HBtpInq  ■ 7,  Hbool  ■ 8,  llbilB  > 9, 
nsaxA  m 16,  nvold  ■ 111 


bind 


ObnbB 

■ up  1 1 1 ( 

HfNOPdcddaon, 

Hfuerrinddaon, 

HlNOPriBddMon, 

HluoPdRddaon, 

HfuopriBddnon, 

HlMOPdaddaon, 

HlHOPdaddnen, 

HlMOPdaddaon, 

Hluapdaddeon, 
0 >, 

Oband 

■ upl 1 1 1 

HfNDrdBdd9an, 
HrMoPdBddgan, 
• ), 

0b«P9 

■ upl 1 1 ( 

HlMOPdaddnon, 
Mlwopdiddaen, 
0 >. 

Obbln 

■ up  1 1 1 1 

HluopdaddMon, 
0 >. 

Qbcen ) 

■ upl 1 1 < 

HluoPriBddaen, 
HlMOPdaddnen, 
0 >, 

Obdiv 

■ up  1 1 1 1 

HluopdaddllR, 
HluardBddnnfl, 
• ». 

Obdoiin 

■ upl  IK 

HfuepriRddBon, 
• », 

PabBl),  HluardBininl,  nini), 

PiibBl  I)  ,H(HordB(NI  Ini,  mini), 
PBbar),  H(MordB(nr««l,  tlropl), 
PubBlr) ,H(MDPdB(niPBRl , niPBBi), 
PjibBc),  HlHOPdi inconpl , flpaBl), 
PoOBic)  ,HlMOPriB(nicoapl , IHpb*!), 
PabBb),  HiuoPdBinaool , (lint), 
Pabobt) ,HluordB<nbi ts,  Hint), 
Pabteh) ,HluopdB(nchiip,  nini), 

Pundb),  lldbool,  ddbeol  ,ndbool , 
P«ndb(),  ndblls,  Hdbl lB,ndbits, 

P*P9>,  HlHOPriBincORpI,  nPBBl), 
PRP9I),  HlNapriBimcoBpI,  niPa*l>, 

Pbln),  HlMOPriainint,  flbllB), 

Pconj),  HlMaPdBtllceapI,  llcoapl), 
PeonJI>,HlMOPdB(nico«pl,  lllcoapl), 

Pdlv), 

Pdiv), 

Pdoimpna) , H f uordB  (HBaMB,  live  Id), 


PAGE  1-8 


DSCDi SRTflBS. BL I (LlSORLCBl  eCHU-lOR 


29.Sop.77  22il«  $S  blecko 


Obdvab 

■ up  1 1 1 ( 

Oboleo 

■ upl It ( 

Obenti 

■ up  1 1 1 ( 

Obey 

■ upl 1 t ( 

Obyo 

■ up  1 1 1 ( 

Obyt 

■ up  1 1 1 ( 

Obli 

■ up  1 1 1 ( 

Oblony 

■ up 1 1 1 1 

Ob  level 

■ upl 1 t I 

Obit 

■ upl  It  ( 

Obi  Mb 

■ up  1 1 1 ( 

Obodob 

■ upl 1 t ( 

Obonnb 

■ upl It  I 

OboinuB 

■ upl 1 t ( 

Obood 

■ upl  1 1 ( 

dyon, 

dgon, 

doon, 

doon, 


dfon, 

dyon, 

dypn, 


HlMorrioddRRB, 

• », 

Hluorripf 
HlHordB( 

e >. 

HfMordoC 
HluorrisC 
• >. 

Hfuarrio< 
Hfuarrft< 
HlHordo( 
HlMoriioC 
HlMordiC 
• >. 

Hluerdsi 
HlMorriol 
HlHard«( 
N(Mordi< 

• >. 

HlHordo( 
HfMerdB( 
HfMerdB( 

• >. 

HlworriBl 
H(HordB< 
HlHordB< 
HfMorilB< 

• >. 

HlMardoC 
HfuordBt 
HluerrtB( 

• ». 

HfuordE( 
H(HordB( 

e ), 

HfMordBl 
HlHordB( 
HfHerrtB< 

• ). 

H<unrdn( 
HlMOrdBC 
HluorriB( 

e », 

HfHarriB( 

8 ). 

HlHprdB( 
HlNrrdB< 

• >, 

HlHOrrinC 
HlNordB( 

H(Mfirriii( 
Hluarrio< 
HlMorriitC 
HlMorriB( 
HiuorriBl 
• >, 

HfMordBddlllt 


Pdiv), 

PolMbt),  ndbool,  ndbltB^ndlnt, 
PoiPby),  ndehor,  nribytaB,ndlnl, 

Ponti),  HlMorriBdlroBl , lllnt), 
Pont  1 1)  (HluordBinirool , mint), 


dnflPRC.  Poq), 
dSSB,  Poqco), 
Poqb) , 
Poqbt), 
Poqby) , 


dRRBC,  Pyo), 
dSSB,  PyocB), 
dyon,  Pyobt), 
dyon,  Pyoby), 

dnnnc,  Pyt), 

dSSB,  PytcB), 
dyon,  Pytby), 

dnnnc,  pia>, 

dJSO,  PIocb), 
dyon,  Plobt), 
dyon,  Plobyl, 


lldbool,  lldbool  ,ndbool , 
Hdbeol,  lldbl  tB,nribi  tB, 
ndboel,  ndbylBB,ndbytoB, 


llribool,  ndblts.Hdblts, 
ndboel,  ndbyleB,ndbytaB, 


ndboel,  ndbytaB,ndbytaB, 


ndboel,  ndbl ls,ndbl ts, 
ndbool,  ndbytaB,ndbytaB, 


doon,|  Planyi) ,HiuorriB<nint,  HI int), 
doon,  Plenyr)  ,HfMordB(nra«l , niraoO, 
daen,  i P I anyc) , H ( Mords  tncaop I , n I coop  I ) , 

doon,:  Plovlnt>,HluerdB(nint,  n«oo«>, 
dawn, I Plovtop)  ,HfMordB(l1isonB,  Hint) , 

I 

dnnnc.  Pit), 
dSSB,  PltcB), 
dyon,  Pllby), 


ndbool,  ndbytaB,ndbytaB, 


dIBR, 

dIBR, 

doon, 

dim. 


Plubn) , 
PiNh) , 


PlHbostr) , 
Pood) , 


ndobsont, 

ndint, 

HlMordBtnRtr In9,nint) , 


dRnn,  Pnub), 
dim,  PBiib), 


dRnn, 

doon, 

doon, 

doon, 

doon, 

doon, 

doon. 


Poiib) , 

Pnoyl),  HluordBtninI,  nint), 

Pnoiil  I)  ,Hl«ordB<ni  Int,  mint), 
Pnoyr),  HlworriBtnrool , nrool), 
Pnoyirl  ,HfHordB<mraRl,  nirool), 
Pnoyel,  HlMordotncoopI , nceopl), 
Pnoylc)  ,HtMordB<meanpl , nicoopl) , 

Pood), 


PACE  1-9 
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i 

I 

I 

I 

I 


Obno 

■ up  1 1 1 ( 

Obnot 

> up  1 1 1 ( 

Obodd 

■ upl It ( 

Obor 

•t  upl  It  ( 

Obovsb 

■ upl It ( 

Obover 

■ up  1 1 1 ( 

Obp 1 ab 

> up  1 1 1 ( 

ObpI to 

■ up  1 1 1 ( 

ObpI I In 

s upl It ( 

ObpluB 

« upl 1 t ( 

Obropr 

■ up  1 1 1 ( 

Obroun 

■ upl 1 1 ( 

ObshI 

■ upl 1 t I 

Obshr 

■ upl 1 t 1 

Obslirt 

■ up  1 1 1 ( 

Obslyn 

a up  1 1 1 1 

Obt  IMS 

a up  1 1 t ( 

e ), 

Hf Morris (IcIflflUHC,  Pno), 
HfMorrisddSSBi  Pnocs), 
HfMorrisdriynn,  Pnob), 
HfHorrtodriqan,  Pnobt), 
HfHards<Id9an,  Pnoby>, 


nribool, 

nriboot, 

ndbool, 


nribool.llriboot, 
nribi ts,nribi ts, 
nribytSB,ndby(«t, 


e ). 

HfuorrisdriMon,  Pnofb),  HfMords<nboal , nboel), 
HfMarrisddMen,  Pnotbt) ,HlHordB(llbt ts,  Hblts), 
0 >. 

HfMarrisddHan,  Porid) , HtMorrisdlint,  Hbool), 
HlMordsdriMon,  Podril),  HfHorrisdll  Ini,  llbool), 


0 ), 

HlMorrisddyon,  Porb),  • nribool,  lldbool ,ndbool , 
HlMordsddyon,  Porbt),  nribits,  Hribi  tB,ndbi  Is, 
8 ). 

HlMordB<IdIRI,  Povor), 

8 ), 

HfMorrisddlll,  Pover), 

0 >. 

Hf Morris (IdRAR,  Psriri), 

HlMorrisdrilfll,  Psdri), 

HlMorrisddSCS,  Pcst-fA),  tlristriny, 
HfMorrisdriSCS,  Pcst-fS) , flrichsr. 


a ),  • 

Hf Morris ddCSS,  Pplustocs), 

8 ), 

HlMorrisddllC,  PplHm), 

8 ), 

HfMorrtsddflnn,  PsddI, 

HiMorrisIldSSS,  Peat), 

HlMorrisdrinon,  PnoopI , HfMorris(t1int,  flint), 
HlMorrindriaon,  Pnoop),  HfMorrisdII  int,  HI  ini), 
HlMorrisddnon,  Pnoop),  Hf  Morris  (Hroal , Hreal), 
HlMorrisdrinon,  Pnoop),  HlMorrisIHIronl , Hlroal), 
HlMorrisddnon,  Pnoop),  HlMorrisIHconpl , Hconpl), 
HlMorrislIdnon,  Pnoop),  HiMorrisIHIconpl,  Hlconpl), 


8 ), 

HlMorrisddnon,  Propr),  HlMorrisIHlnl,  Hchsr), 

8 >, 

HlMorrisddnon,  Proun),  HlMorrisIHroal , Hint), 
HlMorrisddnon,  ProunI ) ,HlMorriE(nirB«l , Hlint), 

0 ), 

HlMorrisddyon,  PshI),  Hdbits,  nrilnl,ndblls, 

0 >. 

HiMorrisddyon,  Pshr),  Hribils,  HrilndHdbl ts, 

8 ), 

HlMorrisddnon,  Pshrl I) ,HlMorris(HI  Ini,  Hint), 
HlMorrisdrinon,  Psl«rtr),HlMorri8(niri*l,  Hrosl), 
HlMorrisdrinon,  Pslirlc),HlMorris(niconpl,  Hconpl), 
8 >.* 

HlMorrisddnon,  Psyni),  HlMords IHlnl,  Him), 
HlMorrisddnon,  Psynl  I ) ,HlMorriB(HI  ini.  Hint), 
HlMorrisdrinon,  Ptynr),  HlMordsIHrosI , flint), 
HlMordsdrifion,  Psynir) ,HlMorriB(Hlrtnl , Hint), 

8 ). 

HiMordsddRRn,.  Pnul), 


pncE  i-ie 


ostiBi  SRTnes.  BLi  (LisoniGBi  ecnu-ien 


29-S*p-77  22)18  SS  block* 


ObtMb 

■ upl 1 t ( 

Hfuordiddqon,  Pmillc),  Hdctrlng,  ndchar,ndlnl, 
Hluerriiddgon,  PmiIcI),  ndtirinq,  ndlnl.lldchar, 
Hfuordaddgen,  Paulis),  Hristrlng,  ndttrlng,ndlnl, 
Mluordidrigon,  Paulsl),  ddstrlng,  ndlnt,ndilrlng, 

• >. 

HluerdsddRflR,  Paul), 

Obiip 

■ up  1 i 1 ( 

HfMordsddlRI,  Paul), 

HtuordaddSCS,  Paulsl),  lldint, 

• ». 

Hfuordsddaen,  Pupsaal ,HfHardB<ns*Ba,  llvold), 

• >. 

HfwerdsddniR,  Poxp), 

• >. 

HfuordsddRIR,  Psxp), 

• >, 

HfuordsddIBR,  Pupba),  ndabsont. 

Obupl 

■ upl  IK  ' 

Obup2 

■ up  1 1 K 

Obupb 

■ up  1 1 K 

HluardsddlBR,  Pupb),  tidint, 

Hluordsddaon,  Pupbasir),  Hluords (11b (ring,  lllnt), 

• >1 

d«lonroi»<SyMlab> 


Envlronaen 

t onguirlas 

data  ( 

OelBtldC  0, 

lldint, 

quoted 

OoltagI  6|  *nnxiNT*))), 

data  ( 

Oolstldl  1, 

lldroal , 

quoted 

OoltagI  7,  "tRKREnL' ) >) , 

data( 

Oefstldl  2, 

Itdroal , 

quoted 

Del  tag!  9,  ’SnnLLRERL’ ) ) ) , 

dat*< 

Oofstidt  3, 

Itdlnlr 

quoted 

OeltagtZB,  'ItltKARSClIRR'))), 

OporaKons 

assoclatsd  ulth  BITS  values 

dala( 

Oolstldl  4, 

Prcbtrb, 

quoted 

OoltagI  8,  ’BITSPRCC’ ) ) ) , 

Opera 1 Ions 

assoc  la  tad  ulth  BYTES 

values 

dala( 

Oslst ld(  5, 

Prcbgst, 

quoted 

OoltagI  9,  ’BYTESPRCk’ ) )) , 

Standard  aathaaatlcal  constants  and  (unctions 

data  ( 

Oolstldl  6, 

Itdroal, 

quoted 

Oeltagt  2,  ’PI’))), 

data( 

Oolstldl  7, 

Prcrr, 

quoted 

OoltagI  4,  ’SORT’))), 

dala( 

Oolstldl  B, 

Prerr, 

quoted 

OoltagI  3,  'EXP'))), 

d*ta( 

Osistidl  9, 

Prcrr, 

quoted 

OoltagI  2,  ’IN’))), 

data< 

DolstlddB, 

Prcrr, 

quoted 

OoltagI  3,  'COS'))), 

data( 

Oslst  Iddl, 

Prcrr, 

quoted 

OoltagI  6,  'RRCCOS'))), 

data( 

0olBtldd2, 

Prcrr, 

quoted 

OsliagI  3,  'SIN'))), 

data( 

Dsistidin, 

Prcrr, 

quoted 

OeltagI  6,  •’RRCSIN'D), 

data( 

OsIstldlU, 

Prcrr, 

quoted 

OoltagI  3,  ’TUN'D), 

data( 

Oslst  IddS, 

Prcrr, 

quoted 

Oeltagt  6,  ’ARCTAN'))), 

data( 

Oslst IdllB, 

Prcrilr, 

quoted 

Ooltaglll,  'NCXTRRNOOIt'))), 

Channels 

dala( 

Oolstldll?, 

ttdchan. 

quoted 

OeltaglU,  'STANniNCHAHIIEL'))), 

riata( 

Oslst IdllB, 

tidchan. 

queted 

DsItagllS,  'STAHOOUTCHIINNEL'))). 

riatai 

OsIstldllS, 

lldchan, 

quoted 

DeltagllB,  'STANOBRCI CHANIIIl' ) 1 ) 

F « (os  and 

assoc  I a led  operations 

data( 

0olstld(28, 

Prcchl, 

quoted 

Oeltagt  4,  'CHAM'))), 

data( 

0alBlld(21, 

Prevls, 

quoted 

OoltagI  8,  ’tinXCTERII’))), 

data! 

Oslst ld(22, 

Preon, 

quoted 

DeltagllB,  'ONIOCICRIFILEEND'))) 

I 


PACE  1-11 

OSKBtSRTABS.BLIILlSOALGR) eCHU-lOA 

dalal 

Dslst.ld(23,  Prcon, 

quoted 

DoftaqdT, 

0slstld(24,  Prcon, 

quoted 

Ooftaqt  9, 

d«t«( 

Dofstld(2S,  Prcon, 

quoted 

Doftaqf  9, 

dsisl 

0afstld(26,  Prcost, 

quoted 

Ooftaqf  9, 

diit«(( 

0ofBtld(27,  PrcHsc, 

quoted 

0aftac|(  A, 

data! 

0afBtid(28,  Prcvrlrs,quattd 

Deftagt  9, 

data! 

DslBtld(29,  Prcrfv, 

quoted 

Oeftagt  S, 

data! 

OafBtldOO,  Prcrfv, 

quoted 

Doftaqf  7, 

data  ( 

DatstldOl,  Prcif, 

quoted 

Oof  tagdO, 

data( 

OafBtld(32,  Prcif, 

quoted 

Dof  tagdO, 

data( 

0ofBtid(33,  Prcif, 

quoted 

Dof  taqdO, 

dataC 

0ofBtid(3A,  Prcrfv, 

quoted 

Doftagf  S, 

data! 

0afBtld(3S,  Prcrfv, 

quoted 

De(tag(  7, 

data( 

0afBtid(36,  Prcrfv, 

quoted 

Doftagt  7, 

daia( 

0afBtid(37,  Prcvf3i, 

quoted 

Doftagf  3, 

data  ( 

0afstid(38,  Prcrfv, 

quoted 

0eftag(  5, 

! Convorslon 

rout Inoa 

dala( 

0otBtid(39,  Presnli, 

quoted 

Doftagt  5, 

data( 

DafstidfAO,  PrcBn2i, 

quoted 

Doftagf  5, 

datat 

DofstidtAl,  PrcBn3l, 

quoted 

0eftag(  S, 

1 Foraat lass 

transput 

dala( 

Dotstld(A2,  Prcvfout 

, quoted 

Doftagf  3, 

data! 

0ofilld(A3,  Prcvfin, 

quoted 

Doftagf  3, 

! Binarij  transput 

dafa( 

Oofs(ldf44,  Prcvfp, 

quoted 

Doftagf  6, 

data( 

OofstidfAS,  Prcvfq, 

quoted 

Doftagf  6, 

I Particular  praludo 

data< 

OofstidtAG,  Rofint, 

quoted 

Oof  tagdO, 

data! 

Dofstld<A7,  Prcroal, 

quoted 

Doftagf  6, 

data( 

OofstldlAS,  Rofflla, 

quoted 

Doftagf  7, 

dala( 

OofstldlAS,  Rafflla, 

quoted 

Doltagf  8, 

data< 

DofstldtSO,  Relflla, 

quoted 

Doftagf  9, 

data< 

OofstidfSl,  Prcvout, 

quoted 

Doftagf  S, 

data( 

OofstidfSl,  Prcvout, 

quoted 

Doftagf  S, 

data! 

DotBtid(S2,  Previn, 

quoted 

Doftagf  A, 

data  ( 

Oofstid<53,  Prevob, 

quoted 

Doftagf  8, 

data  ( 

DofstidtSA,  Previb, 

quoted 

Doftagf  7, 

data  ( 

DafstidfSS,  Codp2ivv 

, quo tod 

Doftagf  6, 

data  ( 

OafstldtSG,  Cedpi ibbv, quoted  OeftaqC  7 

data( 

DsfBtld(S7,  Codeibtvv, quoted  0efta9(lB 

data! 

OofstldfSB,  Codcibtv, quoted 

Doftagf  8, 

data! 

0alilld(S9,  Codlv, 

quoted 

Oof  tagd2. 

ZH>7. 

data  ( 

Defat  id (60,  Hdchan, 

quoted 

Oof  tagf 13, 

data! 

0ofBtid(61,  ndcfian, 

quoted 

OsftagflA, 

data  ( 

0afBtid(62,  Hdchan, 

quoted 

Dot  tagf 16, 

data! 

Defat  id (63,  Hdchan, 

quoted 

Dot  tagdA, 

data< 

DafBtld(6A,  Codiv, 

quote{l 

Doftagf  7, 

data( 

Da(stid(65,  Codrftv, 

quoted 

Deltagfll, 

data< 

Defat  id (66,  Cedv, 

quoted 

Def tagfl3. 

data! 

0efBtld(67,  Codterl, 

quoted 

Doftagf  6, 

dala( 

Defat ld(68,  Hdchan, 

quoted 

Def tagflA, 

29-S*p-77  22>i0  &5  blocks 

ONPHYSICniFILEENO’))), 

ONpnrEENn'D), 

OHLINKENn’D), 

ESTABLISH'))), 

OPCM'D), 

ASSOCIATE’))), 

CLOSE’))), 

SCRATCH’ > ) ) , 

CHARHIIMBER’))), 

LlNENUmiER’))), 

PAGCmiMBCR’))), 

SPACE’))), 

NEULINC’))), 

NEHPACC’))), 

SET’))), 

RESET’))), 


WHOLE’))), 

FIXED’))), 

FLOAT’))), 


PUT’))), 

GET’))), 


PUTBIN’))), 

GETBIN’))), 


LASTRAWnOM’ ) ) ) , 

RANnnil’))), 

STANOIN’))), 

STANBOUT’))), 

STANnOnCL’))), 

PRINT’D), 

WRITE’))), 

REnO’D), 

WRITEBIN’D), 

READBIN’))), 

ONTICi;’))), 

OHCRROR’))), 

ONSYSTRACE’))), 

SYSTRACE’))), 

UARNINGLEVtL’))), 

CONSINrHANNI.'L’))), 

CONSOUTCHAMHEL’D), 

FIXEOPRGCCHAMHEL’))), 

VARPAGCCHAHHEL’))), 

SUTRACE’))), 

GETPROCTIIIE’))), 

STARTPROCTIHE’))), 

nUSECS’))), 

SDSFILECHAHHEL*))), 


I 

I 

i 
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t<HX 

XK>X’£ 


d«tii( 

0o4 

tld(69, 

PrcpBBrti,quolod  Ooflaqdi, 

•SRPPCMOcnpn’))), 

d«t«( 

Oof 

tld(70, 

PreBpBab,quotod  Ooffaqf  5, 

'fCRLLdd, 

diit«( 

Del 

tld(71, 

PrepBB,  quolod  Doflaqf  8, 

•8CLENCTHM)), 

d«lii( 

Oof 

l)d(72, 

PrcpBBb,  quolod  Oof  lag ( 8, 

'SCOflPRRE'))), 

• 

duliil 

Oof 

tld(73. 

Prcibv,  quolod  Do(laq(  8, 

•SCOMTROL’))), 

diiliil 

Dal 

tld<74, 

Prepov,  quolod  Oo(laq(  7, 

•SOELETE'))), 

d«t«( 

Oaf 

f ld(7S, 

Prcipsv,  quoted  DeflaqI  8, 

•$CETcnpn'))», 

d«l«( 

Oof 

lld(76, 

PrepsBrIv, quolod  OoflaqdZ, 

’SINTERCHRHCE’))), 

d«t«( 

Oaf 

fldf77, 

Preotop,  quolod  DoflaqdS, 

’SLNSLENCTH'))), 

- 

d«tM( 

Oaf 

lld(7S, 

PrcpBV,  quolod  Ooflaqf  9, 

'snncEPRCC’))), 

d«l«< 

Oaf 

lld(79, 

Preptv,  quolod  0oflaf(14, 

>SflRKC(IHIVCRSRL*)l), 

rintaC 

Oof 

lid (SB, 

Prcoopov, quolod  Ooflaqf  6, 

•WERCE*))), 

d«l4i( 

Oaf 

tidfBl, 

PrcpBv,  quolod  Ooflag(  2, 

'$P'))), 

d«t«< 

Oof 

((d(82. 

Prepiirtv, quolod  Oof(aq(S, 

•tPRSS’M), 

d«tii( 

Oof 

tIdfSS, 

PrcpBirlB, quolod  Doftagdl, 

•SPflSSnPPENOM)), 

ri«l«< 

Oof 

lld(84. 

Prepob,  quolod  Deftag(13, 

'SPCOIIOtTIONnL'))), 

daiiil 

Oof 

tIdfSS, 

Prcposrtv, quolod  Do((ag(8, 

•SPUTCRPR'))), 

d«l«< 

Oof 

lid (86, 

Prepirtv, quolod  0oflaq(13, 

’SSETCHCRICHTS’))), 

d«t«( 

Oof 

lld(87. 

PrcpoBv,  quolod  Ooflaqf  7, 

•tSMITCM'J)), 

data! 

Oaf 

lid (88, 

Prctpov,  quolod  Doflaqf  S, 

•ITRCE*))), 

dala( 

Oof 

lid (89, 

PreipsNal,quoled  0oflag(9, 

»»TYPECRLL'))), 

dala( 

Oaf 

ttdoe, 

Prcpcv,  quolod  Doflaqf  7, 

•SUPDRTE’))), 

dala( 

Oof 

lld(91. 

Prepov,  quolod  Ooflaqf  2, 

data( 

Oof 

lid(92, 

Prcpcv,  quolod  Doflaqf  7, 

'SVRCRTE’))), 

dala( 

Oof 

lid(93. 

Prcpcv,  quolod  Oeflaq(  S, 

•SVRLL’))), 

data< 

Oof 

(fd(94, 

Code,  quolod  Ooftaqf  8, 

'WETSIOT'))), 

dala( 

Oof 

lid(9S, 

Codicl,  quolod  Oallaqf  9, 

•SnnilESTEPM)), 

dala< 

Oof 

tid(96, 

Codriu,  quolod  Ooflaqf  9, 

•sflflrEiifli.i;M)), 

da<a( 

Oof 

lid(97, 

Codicl,  quolod  Ooflaqf  8, 

•SUSESLOT*))), 

data( 

Oof 

lid(98, 

Codpi Ibbv, quoted  0oftaq(8, 

‘ONSIGNRL’))), 

dala( 

Oof 

lid (99, 

Hdclet,  quolod  Ooflaqf  8, 

'ffUUSLOTMM, 

XZkKZ 


1 Operatorc 

ilalaf 

Dofitoprlf 

0,  ObabB, 

quolod  Dofeprf  3, 

•RBS'))), 

(fataf 

Oefcloprl ( 

0,  Obarq, 

quoted  Dofeprf  3, 

•RRC*))), 

(fata  ( 

Oofctoprl ( 

8,  Obbin, 

quolod  Dofoprf  3, 

•BIN'))), 

dalaf 

Oolcloprl ( 

8,  Obconj, 

quoted  Ooloprf  4, 

’COHJ’I)), 

dalaf 

Oofctoprl ( 

8,  Obrioun, 

quoted  , Oof opr ( 4, 

’OOIIHM)), 

data! 

Oofctoprl ( 

8,  Obenti, 

quolod  Dofoprf  6, 

•EHTtER*))), 

dalaf 

Oefcloprl ( 

8,  Oblcnq, 

quoted  Oefoprf  4, 

•LEHG*))), 

dalaf 

Oofctoprl ( 

0,  Oblevel, 

quoferi  Oefoprf  S, 

'LEVEL'))), 

dalaf 

Delctoprl ( 

8,  Obnot, 

quoted  Oefoprf  3, 

’NOT’))), 

dalaf 

Oofstoprlf 

0,  Obedd, 

quoted  Dofoprf  3, 

’000’))), 

dalaf 

Ooftleprlf 

0,  Obropr, 

quolod  Oefoprf  4, 

’REPR’))), 

dalaf 

'jofcleprlf  0,  Obreun, 

quoted  Oefoprf  S, 

’ROUIIO’))), 

dalaf 

Doftloprlf 

8,  ObBhrl, 

quolod  Dofeprf  7, 

’SHORTEN’))), 

dalaf 

Oefcloprl ( 

8,  Obclqn, 

quoted  Dofeprf  4, 

’SIGH’))), 

dalaf 

Oofctoprl ( 8,  Obiip, 

quolod  Ooloprf  2, 

’OP’))), 

dalaf 

Oof cloprl ( 

1,  Obdvab, 

quoted  Ooloprf  S, 

’OlVRB’))), 

qblnaaef  Oprrivab, 

OofBteprZf 

1,  ObdvabM, 

dalaf 

Oofctoprl ( 

1,  Obonab, 

quoted  Oefoprf  7, 

’IIINUSnB’))), 

gblnaaof  Opronab, 

OolcleprZf 

1,  Obonab)!, 

dalaf 

Oofoleprlf 

1,  Obndab, 

quolod  Oefoprf  S, 

’noof)B’)>), 

29-S«p~77  22iie  55  bloci;* 
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9blnitn«( 

9b  I non  < 

9blni>Ba( 

d«t«( 

gbIniiMl 

9blnMM( 
d«lji( 
d«la( 
d«ta( 
gbtnanai 
data  ( 
9b  I naoa ( 
dala( 
9blnap«( 
data( 
9b  I nans ( 
data( 
9blnaiia( 
data< 
gbinnnat 
9b  I nano ( 
9b(nan«< 
datat 
gblnaaot 
9b  I nano ( 
dalaC 
9b  I nano  < 
datat 
9blnaMa( 
9blnaMa< 
9b  I nano ( 
datat 
datat 
datat 
datat 
9blnnMot 


Opradab, 

Oprowab, 

Oprplab, 

Oprplto, 

Oprtbab, 


Opreq, 

Oprne, 

Oprga, 

Oprgt, 

Opria, 

OprI t, 

Oprplus, 

OprainuB, 

Oprt iaas, 
Oprdtv, 

Opraod, 

Oprovor, 

Opriipl, 

0priip2, 


Oprpl I tn, 


datat  -1) 

dataand; 


0olBtopr2t  1,  Obadab)), 
OoiBtoprlt  1,  Obovab, 
Oafatopr2t  1,  Obovab)), 
Dafstoprlt  Iv  Obplab, 
0a(Btopr2t  1,  Obplab)), 
Dofitoprlt  1,  ObpMo, 
Da(Btopr2t  1,  Obpito)), 
OafBtoprlt  1,  Obtaab, 
Do(Btopr2t  1,  Obtaab)), 
Oalitoprlt  2,  Obor,  1 
Oefstoprlt  3,  Obanri, 
OafBtoprlt  4,  Obeq, 
Dafstopr2f . 4,  Obaq)),  | 
OafBtoprlt  4,  Obna, 
OafBtopr2t  4,  Obna)),  1 
OafBtoprlt  5,  Obgo,  I 
0otBtopr2(  S,  Obgo)),  ' 
OafBtoprlt  5,  Obgt,  j 
DafBtopr2f  5,  Obgt)),  j 
OafBtoprlt  5,  Obla, 
0ofBtopr2t  5,  Obla)), 
OafBtoprlt  5,  Obit, 
0ofBtopr2t  5,  Obit)), 
0ofBtopr2t  6,  Obplus)), 
0ofstapr2t  6,  Obalmis)), 
OoiBtoprlt  7,  Oboloa,  . 
0afBtopr2t  7,  Obtiaea)), 
0olBtopr2t  7,  Obrilv)), 
OoiBtoprlt  7,  Obaod, 
0ofBtopr2(  7,  Obaod)), 
OoiBtoprlt  7,  Obovor, 
DolBtopr2t  7,  Obovor)), 
Oolstopr2t  8,  ObiipD), 
OofBtoprZt  8,  ObupZ)), 
OoiBtoprlt  8,  Oblub, 
OafBtoprlt  8,  Obupb, 
OoiBtoprlt  8,  Obshl, 
OoiBtoprlt  8,  Obshr, 
OofBtoprZt  9,  Obplltn)), 


quotad  Deloprt  6,  'OVCRflB’))), 

quotad  Oofoprt  6,  ’PLUSRB'))), 

quotad  Oofoprt  6,  *PLUST0'))), 

quotad  Oofoprt  7,  ’TinESRB'))), 

quoted  Oofoprt  2,  ’OR'))), 
quoted  Oaf oprt  3,  ’RMO'))), 
quotad  Oafoprt  2,  ’EQ'))), 

quotad  Oofoprt  2,  ’NE’))), 

quotad  Oafoprt  2,  ’GE’))), 

quoted  Oofoprt  2,  *CT*))), 

quoted  Oofoprt  2,  ’LE’))), 

quotad  Oofoprt  2,  ’LT’))), 

quoted  Oofoprt  4,  ’ELEtt’))), 

quoted  Oofoprt  3,  'nOO'))), 
quotod  Oofoprt  4,  'OVER'))), 


quoted  Oofoprt  3,  'LUB'))), 
quotod  Oofoprt  3,  ’UPB'))), 
quotod  Oofoprt  3,  'SHL'))), 
quotod  Oofoprt  3,  'SHR'))), 


I Ttiln);  about  doing  III  and  RE 


undonlara  LoKOtop,  Laxstart,  Laxtab; 

9lebaldatat,LoxBtarl,)  LoxatLxvBtart,aapl9)) ) 

9lobnldata(,LoKBtap,)  LoKMtLxvBtap,eapty))| 

global  da  tat, Lex tab,) 

0,  Oaffagt  6,  aapty), 
a,  Oaftagt  2.  ’Ill’), 
a,  Oaftagt  2,  ’RE’), 
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0. 

0*flag(  4, 

•STOP*), 

0. 

tn>xr. 

Oof donlnt ( 

1>. 

0, 

0«ft«9(  1, 

'S'), 

0. 

0oft«9(  1, 

*U*), 

0, 

OaftagC  7, 

'SnUKRTS'), 

0, 

Dotta9(ll, 

'SGENCRICRTS'), 

0, 

Dell«9(12, 

•SBHPL1FYFLRC*), 

0. 

Dcf  t«9(13, 

•STEIIPLRTEFLnC’), 

XX<K% 


no<beld(LMval, 

•, 

2,  ’RT>), 
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